asp access网站建设源代码百度推广账户优化
目前，实际工作中基本上实在同一个文件内跨多个工作表完成的。下面的跨文件操作用到的不多。
这里别人已经整理好的东西，可以作为参考。
Option Explicit'excel文件和工作簿'excel文件就是excel工作簿，excel文件打开需要excel程序的支持'Workbooks 工作簿集合，泛指excel文件或工作簿'Workbooks("A.xls")，名称为A的excel工作簿Sub t1()Workbooks("A.xls").Sheets(1).Range("a1") = 100End Sub'workbooks(2)，按打开顺序，第二个打开的工作簿。Sub t2()Workbooks(2).Sheets(2).Range("a1") = 200End Sub'ActiveWorkbook ，当打开多个excel工作簿时，你正在操作的那个就是ActiveWorkbook（活动工作簿）'Thisworkbook，VBA程序所在的工作簿，无论你打开多少个工作簿，无论当前是哪个工作簿是活动的,thisworkbook就是指它所在的工作簿。'工作簿窗口'Windows("A.xls"),A工作簿的窗口，使用windows可以设置工作簿窗口的状态，如是否隐藏等。Sub t3()Windows("A.xls").Visible = FalseEnd SubSub t4()Windows(2).Visible = TrueEnd SubOption Explicit'1 判断A.Xls文件是否存在Sub W1()If Len(Dir("d:/A.xls")) = 0 ThenMsgBox "A文件不存在"ElseMsgBox "A文件存在"End IfEnd Sub'2 判断A.Xls文件是否打开Sub W2()Dim X As IntegerFor X = 1 To Windows.CountIf Windows(X).Caption = "A.XLS" ThenMsgBox "A文件打开了"Exit SubEnd IfNextEnd Sub'3 excel文件新建和保存Sub W3()Dim wb As WorkbookSet wb = Workbooks.Addwb.Sheets("sheet1").Range("a1") = "abcd"wb.SaveAs "D:/B.xls"End Sub'4 excel文件打开和关闭Sub w4()Dim wb As WorkbookSet wb = Workbooks.Open("D:/B.xls")MsgBox wb.Sheets("sheet1").Range("a1").Valuewb.Close FalseEnd Sub'5 excel文件保存和备份Sub w5()Dim wb As WorkbookSet wb = ThisWorkbookwb.Savewb.SaveCopyAs "D:/ABC.xls"End Sub'6 excel文件复制和删除Sub W6()FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"Kill "D:/ABC.XLS"End Sub