|
本帖最后由 aaa060331 于 2017-1-13 15:20 编辑
各位大神:
本人有一段VBA代码,但是运行时总是有问题,求解,感谢!
Sub 宏1()
For i = 1 To Worksheets("sheet1").Range("B10000").End(xlUp).Row '开始循环 从“sheet1”工作薄的B2单元格开始
If Cells(i + 1, 2) <> "" Then
Name ThisWorkbook.Path & "\" & """a a.pdf""" as ThisWorkbook.Path & "\" & "123.pdf"
End If
Next i
End Sub
初步认为是a a.jpg文件名中有“空格”的原因。然而,在实际使用这段代码的时候,要重命名的文件中又必然的“空格”。
问题:如何在VBA中引用一个有空格的文件名?
下面的代码应如何纠正?
Name ThisWorkbook.Path & "\" & """ & Cells(i + 1, 2) & """ AS ThisWorkbook.Path & "\" & """ & Cells(i + 1, 3) & """
|
|