工作簿的大小写问题。在Excel 2016中打开使用VBA
我正在尝试编写将提示用户input.xlsx文件path的代码，然后打开该工作簿。 最后，我希望VBA从正在打开的工作簿中复制数据。 但是，我无法让VBA打开工作簿。
这是我的代码：
Sub Select_File_Or_Files_Mac() Dim MyPath As String Dim MyScript As String Dim MyFiles As String Dim MySplit As Variant Dim N As Long Dim Fname As String Dim mybook As Workbook On Error Resume Next MyPath = MacScript("return (path to documents folder) as String") 'Or use MyPath = "Macintosh HD:Users:Ron:Desktop:TestFolder:" ' In the following statement, change true to false in the line "multiple ' selections allowed true" if you do not want to be able to select more ' than one file. Additionally, if you want to filter for multiple files, change ' {""com.microsoft.Excel.xls""} to ' {""com.microsoft.excel.xls"",""public.comma-separated-values-text""} ' if you want to filter on xls and csv files, for example. MyScript = _ "set applescript's text item delimiters to "","" " & vbNewLine & _ "set theFiles to (choose file of type " & _ " {""org.openxmlformats.spreadsheetml.sheet""} " & _ "with prompt ""Please select a file or files"" default location alias """ & _ MyPath & """ multiple selections allowed true) as string" & vbNewLine & _ "set applescript's text item delimiters to """" " & vbNewLine & _ "return theFiles" MyFiles = MacScript(MyScript) On Error GoTo 0 If MyFiles <> "" Then With Application .ScreenUpdating = False .EnableEvents = False End With MySplit = Split(MyFiles, ",") For N = LBound(MySplit) To UBound(MySplit) ' Get the file name only and test to see if it is open. Fname = Right(MySplit(N), Len(MySplit(N)) - InStrRev(MySplit(N), Application.PathSeparator, , 1)) If bIsBookOpen(Fname) = False Then Set mybook = Nothing On Error Resume Next Set mybook = Workbooks.Open(MySplit(N)) On Error GoTo 0 If Not mybook Is Nothing Then MsgBox "You open this file : " & MySplit(N) & vbNewLine & _ "And after you press OK it will be closed" & vbNewLine & _ "without saving, replace this line with your own code." mybook.Close SaveChanges:=False End If Else MsgBox "We skipped this file : " & MySplit(N) & " because it Is already open." End If Next N With Application .ScreenUpdating = True .EnableEvents = True End With End If Cells(1, 1) = MyFiles Set mybook = Workbooks.Open(MyFiles) End Sub Function bIsBookOpen(ByRef szBookName As String) As Boolean ' Contributed by Rob Bovey On Error Resume Next bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing) End Function 当我运行代码时，我得到了一个1004运行时错误，说该文件无法在全部大写的文件path中find。 这很奇怪，因为用户必须在popup窗口中select文件，所以文件必须在那里。 我也有代码在电子表格中将文件path写入单元格1,1。 有什么奇怪的是程序打印文件path有适当的shell作为实际的文件path，但错误是在所有大写。 我认为这个问题是，UNIX是区分大小写的，我在OSX上运行这个。 为什么Excel将文件path放在所有上限中？ 如果我将文件path硬编码到Workbooks.Open（这里是直接文件path）
我使用的代码我在https://msdn.microsoft.com/en-us/library/office/hh710200(v=office.14).aspx
这似乎是失踪
' Change drive/directory to MyPath. ChDrive MyPath ChDir MyPath