Question

我正在尝试将Excel文件从另一个文件夹复制到保存/存在此脚本的文件夹中。我的下面的代码中出现“预期语句结尾”错误，请有人帮忙。

Option Explicit

Dim FSO
Dim sFile As String
Dim sSFolder As String
Dim sDFolder
Dim anObject As Object
sFile = "Filename.xlsm"
sSFolder = "C:\workspace"
Set FSO = CreateObject("Scripting.FileSystemObject")
sDFolder = FSO.GetAbsolutePathName("C:\") 
If Not FSO.FileExists(sSFolder & sFile) Then
    MsgBox "Specified File Not Found", vbInformation, "Not Found"
Else
    FSO.CopyFile (sSFolder & sFile), sDFolder, True
End If

Answer 1

未经测试，但是如果不将VBA代码细分为子过程，则无法使用。您应该以{{1}}开头一条语句，并以Sub (your subname)结束该语句。见下文。

End Sub

Answer 2

我将对您的代码进行一次更改（我会对此进行注释，但我没有足够的意见，很抱歉）：

sFile =“ Filename.xlsm”

sSFolder =“ C：\ workspace \”

否则，您将寻找名为C：\ workspaceFilename.xlsm的文件

VBA程序的预期语句结尾

2 个答案: