![在 Windows7 32 位中创建并运行的 vba 脚本在 Windows10 64 位中不起作用](https://linux22.com/image/1618202/%E5%9C%A8%20Windows7%2032%20%E4%BD%8D%E4%B8%AD%E5%88%9B%E5%BB%BA%E5%B9%B6%E8%BF%90%E8%A1%8C%E7%9A%84%20vba%20%E8%84%9A%E6%9C%AC%E5%9C%A8%20Windows10%2064%20%E4%BD%8D%E4%B8%AD%E4%B8%8D%E8%B5%B7%E4%BD%9C%E7%94%A8.png)
我使用 VBA 创建了一个帐单格式。它在 Windows 7 32 位系统中运行良好,但在 Windows 10 64 位系统中不起作用。
我收到了错误
运行时错误“1004”
文档未保存。文档可能已打开,或者保存时可能遇到错误。
这是我的 VB 代码:
Private Sub PDFBills()
Dim flnm As String
This.Range("E2:O50").Select
flnm = "E:\BKTRADERS\TRADERBILLS\Bills_2019_20\BKT_19-20_" & ActiveSheet.Range("I8").Value & ".PDF"
If Dir(flnm) <> "" Then
Ans = MsgBox("File already exists. Overwrite?", vbQuestion + vbYesNo, "Overwrite?")
If Ans = vbNo Then Exit Sub
End If
If IsFileOpen(flnm) Then
MsgBox "File already IN USE / OPEN!"
Else
**Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:=flnm, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False**
End If
Application.DisplayAlerts = True
End Sub