|
如何用VFP控制EXCEL表格 |
|
[2006年10月26日] 點(diǎn)擊數(shù):
1845
【字體：大 中 小】【雙擊滾屏】
|
|
例如：我想將A1至H4單元格合并；在合并后的單元格內(nèi)輸入“你好，來(lái)自網(wǎng)上的朋友。”；調(diào)整字體為“隸書(shū)”；調(diào)整字體號(hào)為“28”；設(shè)置單元格內(nèi)的文字水平方向居中；設(shè)置單元格內(nèi)的文字垂直方向居中。 實(shí)現(xiàn)步驟： 啟動(dòng)EXCEL ，在“工具”欄中將鼠標(biāo)移動(dòng)到“宏(M)”，啟動(dòng)“錄制新宏”，為宏起一個(gè)名字，單擊“確定”按鈕。（此時(shí)應(yīng)出現(xiàn)一個(gè)“停止錄制宏窗口”）選中A1至H4區(qū)域，在區(qū)域中單擊鼠標(biāo)右鍵，單擊“設(shè)置單元格格式”，單擊“對(duì)齊”卡片，單擊“合并單元格”，同時(shí)在此窗口中設(shè)置水平居中和垂直居中，輸入文字，改變字體，改變字體號(hào)。 完成上述內(nèi)容后，停止錄制宏。 回到“工具”欄中將鼠標(biāo)移動(dòng)到“宏(M)”，啟動(dòng)“宏(M) ALT F8” 編輯剛才錄制的宏，將所有的代碼全部復(fù)制，粘貼到VFP程序中。 以下是宏的原代碼，它在VFP中是不能直接運(yùn)行的，需要進(jìn)行修改。 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 = "你好，來(lái)自網(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中運(yùn)行的代碼 主意，請(qǐng)?jiān)冢帽P根目錄下事先建立ＢＯＯＫ１.ＸＬＳ文件 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左對(duì)齊，3居中，4右對(duì)齊 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 = "你好，來(lái)自網(wǎng)上的朋友。" HB1.ActiveCell.Characters.Font.Name = "隸書(shū)" 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 &&自動(dòng)保存數(shù)據(jù) HB1.ACTIVEWORKBOOK.CLOSE &&關(guān)閉當(dāng)前工作簿 HB1.QUIT &&關(guān)閉EXCEL 單元格列寬和高度控制方法、以及其他更多的控制你都可以參照上面的方法實(shí)現(xiàn)。ET1").SELECT HB1.Range("A1:H4").Select HB1.Selection.HorizontalAlignment = 3 &&水平方向 2左對(duì)齊，3居中，4右對(duì)齊 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 = "你好，來(lái)自網(wǎng)上的朋友。" HB1.ActiveCell.Characters.Font.Name = "隸書(shū)" 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. |
|
|
來(lái)自： 昵稱1586800 > 《vfp相關(guān)》
