作者：乔山办公网日期：
返回目录：excel表格制作
在工作复表中可以直接用vlookup完成制，如果非得知vba，vba中也可以调用工道作表函数。
Sub test()
With Sheets("sheet2")
For c = 5 To 100
Cells(14, c) = Application.WorksheetFunction.VLookup(Cells(10, c), Sheets("sheet1").Range("a:b"), 2, 0)
Next
End With
End Sub
Set xlsBook = xlsApp.Workbooks.Add '添加百工作簿度
简化问一下答
with xlsApp.Workbooks.Add after：=sheets（版sheets.count）
或则权
Set xlsBook = xlsApp.Workbooks.Add（,sheets(sheets.count))
Dim wb As Object
Dim sht As Object
Set wb = Sheet1.Object '通过百Excel表格控件的object属性得度到workbook对象。
Set sht = wb.activesheet '活动的工作问表
sht.cells(1, 1) = 12 '通过cells访问工作表的单元格，此答代码将A1设置为12
把上专面的代码放到command1的click事件里属。
Dim strfile As String
Private Sub Form_Load()
strfile = App.Path
End Sub
Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Set xlsApp = Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(strfile & "\1.xls")
xlsApp.Visible = False
xlsApp.Sheets.Add After:=Sheets(Sheets.Count)
xlsApp.ActiveSheet.Name = "2013年8月"
xlsBook.Close (True)
Set xlsApp = Nothing
End Sub