怎么分步操作同一个excel? - 编程论坛

#2

风吹过b2013-08-14 17:44

Sub biaoge
Dim excelID As Excel.Application
Set excelID = CreateObject("Excel.Application")
excelID.Workbooks.Open ("C:\22.xls")
excelID.Worksheets(1).Select

if checkbox1.value=1 then                    '第一个
   excelID.Cells(11, 1) = Text12.Text
end if

if checkbox2.value=1 then                    '第二个
   excelID.Cells(?, ?) = Text??.Text
end if
……

excelID.Workbooks.Close
excelID.Quit
End Sub

#3

tianskon2013-08-14 20:46

版主，我想要的是，第一个checkbox,打开的是excel中的sheet1,第二个checkbox打开的是sheet2,然后第三个，第四个……，对应打开sheet3，4，……
我上面写的这些，是打开了sheet1来操作，如果把这几个checkbox都写在同一个子程序，那怎么才能操作其它sheet呢？

#4

风吹过b2013-08-15 08:18

Sub biaoge
Dim excelID As Excel.Application
Set excelID = CreateObject("Excel.Application")           '创建新的EXCEL
excelID.Workbooks.Open ("C:\22.xls")         '打开文件

if checkbox1.value=1 then                    '第一个
   excelID.Worksheets(1).Select              '选择第一个工作表
   excelID.Cells(11, 1) = Text12.Text
end if

if checkbox2.value=1 then                    '第二个
   excelID.Worksheets(2).Select              '选择第二个工作表
   excelID.Cells(?, ?) = Text??.Text
end if
……

excelID.Workbooks.Close                      '关闭工作簿
excelID.Quit                                 '退出 EXCEL
End Sub

#5

tianskon2013-08-15 08:35

不用写成子程序的形式，也可以，谢谢版主，