我正在尝试创建一个子例程,提示用户选择工作簿,然后将选定工作簿的第一张工作表添加为现有(活动)工作簿中的选项卡。然后命名新标签“数据”。下面是我使用至今代码:将工作表从另一工作簿加载到Excel中与VBA
"ws.Add" method or With Block not set.
任何帮助表示赞赏:
Sub getworkbook()
' Get workbook...
Dim ws As Worksheet
Dim filter As String
Dim targetWorkbook As Workbook
Set targetWorkbook = Application.ActiveWorkbook
' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
ws = Application.GetOpenFilename(filter, , caption)
ws.Add After:=Sheets(Sheets.Count)
ws.Name = "DATA"
End Sub
此代码似乎并不奏效,并返回以下错误。
感谢,
类似的问题:http://stackoverflow.com/questions/3840628/creating-and-naming-worksheet-in-excel-vba – 2012-08-15 23:32:43