用VFP控制EXCEL表格

昵稱1586800 2011-01-10

展開全文

如何用VFP控制EXCEL表格

[2006年10月26日] 點擊數(shù): 1845 【字體：大中小】【雙擊滾屏】

    先在EXCEL中實現(xiàn)你所需要的操作內(nèi)容，并將這些操作步驟用宏記錄錄制下來。
     例如：我想將A1至H4單元格合并；在合并后的單元格內(nèi)輸入“你好，來自網(wǎng)上的朋友。”；調(diào)整字體為“隸書”；調(diào)整字體號為“28”；設(shè)置單元格內(nèi)的文字水平方向居中；設(shè)置單元格內(nèi)的文字垂直方向居中。
     實現(xiàn)步驟：
     啟動EXCEL ，在“工具”欄中將鼠標移動到“宏(M)”，啟動“錄制新宏”，為宏起一個名字，單擊“確定”按鈕。（此時應(yīng)出現(xiàn)一個“停止錄制宏窗口”）選中A1至H4區(qū)域，在區(qū)域中單擊鼠標右鍵，單擊“設(shè)置單元格格式”，單擊“對齊”卡片，單擊“合并單元格”，同時在此窗口中設(shè)置水平居中和垂直居中，輸入文字，改變字體，改變字體號。
     完成上述內(nèi)容后，停止錄制宏。
     回到“工具”欄中將鼠標移動到“宏(M)”，啟動“宏(M) ALT F8”
     編輯剛才錄制的宏，將所有的代碼全部復制，粘貼到VFP程序中。
     以下是宏的原代碼，它在VFP中是不能直接運行的，需要進行修改。
     Sub 宏1()
     ' 宏1 宏表
     ' ssss記錄的宏1999-6-11
     Range("A1:H4").Select
     With Selection
     .HorizontalAlignment = xlCenter
     .VerticalAlignment = xlCenter
     .WrapText = False
     .Orientation = 0
     .AddIndent = False
     .ShrinkToFit = False
     .MergeCells = True
     End With
     Range("A1:H4").Select
     ActiveCell.FormulaR1C1 = "你好，來自網(wǎng)上的朋友。"
     With ActiveCell.Characters(Start:=1, Length:=11).Font
     .Name = "宋體"
     .FontStyle = "常規(guī)"
     .Size = 28
     .Strikethrough = False
     .Superscript = False
     .Subscript = False
     .OutlineFont = False
     .Shadow = False
     .Underline = xlUnderlineStyleNone
     .ColorIndex = xlAutomatic
     End With
     Range("H17").Select
     End Sub
     以下是修改后能夠在VFP中運行的代碼
     主意，請在Ｃ盤根目錄下事先建立ＢＯＯＫ１.ＸＬＳ文件
     XLFILE="C:\BOOK1.XLS"
     HB1=CREATEOBJECT("EXCEL.APPLICATION")
     HB1.APPLICATION.VISIBLE=.T.
     HB1.WORKBOOKS.OPEN("&XLFILE")
     HB1.SHEETS("SHEET1").SELECT
     HB1.Range("A1:H4").Select
     HB1.Selection.HorizontalAlignment = 3 &&水平方向 2左對齊，3居中，4右對齊
     HB1.Selection.VerticalAlignment = 2 &&垂直方向 1靠上，2居中，3靠下
     HB1.Selection.WrapText = .F. && ??
     HB1.Selection.Orientation = 0 && ??
     HB1.Selection.AddIndent = .F. && ??
     HB1.Selection.ShrinkToFit = .F. && ??
     HB1.Selection.MergeCells = .T. && ??
     HB1.Range("A1:H4").Select
     HB1.ActiveCell.FormulaR1C1 = "你好，來自網(wǎng)上的朋友。"
     HB1.ActiveCell.Characters.Font.Name = "隸書"
     HB1.ActiveCell.Characters.Font.FontStyle = "常規(guī)"
     HB1.ActiveCell.Characters.Font.Size = 28
     HB1.ActiveCell.Characters.Font.Strikethrough = .F.
     HB1.ActiveCell.Characters.Font.Superscript = .F.
     HB1.ActiveCell.Characters.Font.Subscript = .F.
     HB1.ActiveCell.Characters.Font.OutlineFont = .F.
     HB1.ActiveCell.Characters.Font.Shadow = .F.
     HB1.ActiveCell.Characters.Font.Underline = 2 &&下劃線
     HB1.ActiveCell.Characters.Font.ColorIndex = 3 &&字符顏色
     HB1.Range("H17").Select
     HB1.ACTIVEWORKBOOK.SAVE &&自動保存數(shù)據(jù)
     HB1.ACTIVEWORKBOOK.CLOSE &&關(guān)閉當前工作簿
     HB1.QUIT &&關(guān)閉EXCEL
     單元格列寬和高度控制方法、以及其他更多的控制你都可以參照上面的方法實現(xiàn)。ET1").SELECT
     HB1.Range("A1:H4").Select
     HB1.Selection.HorizontalAlignment = 3 &&水平方向 2左對齊，3居中，4右對齊
     HB1.Selection.VerticalAlignment = 2 &&垂直方向 1靠上，2居中，3靠下
     HB1.Selection.WrapText = .F. && ??
     HB1.Selection.Orientation = 0 && ??
     HB1.Selection.AddIndent = .F. && ??
     HB1.Selection.ShrinkToFit = .F. && ??
     HB1.Selection.MergeCells = .T. && ??
     HB1.Range("A1:H4").Select
     HB1.ActiveCell.FormulaR1C1 = "你好，來自網(wǎng)上的朋友。"
     HB1.ActiveCell.Characters.Font.Name = "隸書"
     HB1.ActiveCell.Characters.Font.FontStyle = "常規(guī)"
     HB1.ActiveCell.Characters.Font.Size = 28
     HB1.ActiveCell.Characters.Font.Strikethrough = .F.
     HB1.ActiveCell.Characters.Font.Superscript = .F.
     HB1.ActiveCell.Characters.Font.Subscript = .F.