对 vba 来说相当新,但我编写了一个代码,可以取消合并列中的行,复制单元格,然后粘贴到不同的宏工作簿中。当我第一次运行该代码时,它运行良好。然而,我今天尝试使用它,但我很震惊我出现了错误。此错误表明无法找到目标文件名。这很奇怪,因为目标文件名没有更改或移动。这是代码示例。
错误显示在行:
Set book2 = Workbooks.Open("17 财年报告的跨式燃料
用法.xlsm")
代码如下:
Public Sub Button6_Click()
'Change name of button
Worksheets("7500").Buttons("Button 6").Text = "Send"
With Sheets("7500")
'Unmerge cells
.Range("AI3:AI92").Select
With Selection
For Each rCell In Selection
With rCell
If .MergeCells Then
.MergeArea.UnMerge
End If
End With
Next rCell
End With
End With
'open destination workbook
Dim book1 As Workbook
Dim sheet1 As Worksheet
Dim book2 As Workbook
Dim sheet2 As Worksheet
Application.ScreenUpdating = False
Set book1 = ThisWorkbook
Set book2 = Workbooks.Open("Fiscal '17 Reported Straddle Fuel Usage.xlsm")
Set sheet1 = book1.Sheets("7500")
Set sheet2 = book2.Sheets("Nov ‘17")
目标文件名未更改或移动
您没有指定路径。指定路径。
Set book2 = Workbooks.Open("Fiscal '17 Reported Straddle Fuel Usage.xlsm")
Const path As String = "C:\Foo\Bar\Fiscal '17 Reported Straddle Fuel Usage.xlsm"
Set book2 = Workbooks.Open(path)
Workbooks.Open
无论什么都可以工作CurDir
路径是,并且值CurDir
每当用户看到“打开文件”对话框并开始浏览时就会发生变化:没有完整路径的文件名是不可靠的。
与 VBA 中的许多事情一样,最好将其明确化。给它一个完整的路径。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)