OFFICE編程思路（VBA）

2024-07-21 02:23:16

字體：大中小

來源：轉載

供稿：網友

下面是vb打開文件的代碼：

if dir("d:/excel.bz") = "" then '判斷excel是否打開
set xlapp = createobject("excel.application") '創建excel應用類
xlapp.visible = true '設置excel可見
set xlbook = xlapp.workbooks.open("d:/test.xls") '打開excel工作簿
set xlsheet = xlbook.worksheets(1) '打開excel工作表

activeworkbook.save

xlapp.displayalerts = false
xlapp.screenupdating = true
xlapp.quit

end if

然后打開excel工作表，在工作表上做本來程序準備做的操作并錄制成“宏”，直接拷貝到上面的空白處。就搞定了。
宏代碼如下（vba代碼，其中少量代碼按照vba的編程語法做了修改）：

' 下面信息來自宏
range("a4:c4").select
selection.copy
range("a11").select
activesheet.paste
range("a3:c3").select
application.cutcopymode = false
selection.copy
range("a4").select
activesheet.paste
range("a5").select
activesheet.paste
range("a6").select
activesheet.paste
range("a7").select
activesheet.paste
range("a8").select
activesheet.paste
range("a9").select
activesheet.paste
range("a10").select
activesheet.paste

application.cutcopymode = false
for i = 1 to 9
range("a" & (i + 1)).select
activecell.formular1c1 = "項目" & i
range("b" & (i + 1)).select
activecell.formular1c1 = i
range("c" & (i + 1)).select
activecell.formular1c1 = "說明" & i
next

range("b11").select
activecell.formular1c1 = "=sum(r[-9]c:r[-1]c)"

對word的操作很類似，其他語言（例如c++）可以按照這種語法結構做com編程

上一篇：值傳遞