open用法 vba_vba workbook.open的文件名怎么使用变量

Setnm=Sheet4.ComboBox1.textex=ThisWorkbook.Path&"\"&nm&".xls"Setxlbook=Workbooks.Open(ex)Setsh=xlbook.Sheets(nm)这样写对吗？看一下我下面的语句哪里出问题了，为什么抓不到数...

Set nm = Sheet4.ComboBox1.textex = ThisWorkbook.Path & "\" & nm & ".xls"

Set xlbook = Workbooks.Open(ex)

Set sh = xlbook.Sheets(nm)

这样写对吗？

看一下我下面的语句哪里出问题了，为什么抓不到数据呢？

Dim f

Dim nm

Set nm = Sheet4.ComboBox1.Text

Set xlbook = Workbooks.Open(ThisWorkbook.Path & "\" & nm & ".xls“) '打开工件簿文件

Set sh = xlbook.Sheets(nm)

Set sh1 = Sheets("Daily_reports1")

r = sh1.Range("a65536").End(3).Row

For i = 2 To r

Set c = sh.Range("a:a").Find(sh1.Cells(i, 1), lookat:=xlWhole)

Set x = sh.Range("f1:ho1").Find(Sheet4.Cells(1, 7), lookat:=xlWhole)

If Not c Is Nothing Then

rr = c.Row

xx = x.Column

For xxx = xx To xx + Sheet4.Cells(3, 7)

sh1.Cells(i, 20) = sh.Cells(rr, 20)

Next

End If

Next i

End If

Windows(ThisWorkbook.Name).Activate '回到操作主表界面

xlbook.Close (False) '关闭工作簿，不保存Sheet4.Select

展开