Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
运行时错误';1004';Excel 365 VBA for Mac_Excel_Vba - Fatal编程技术网

运行时错误';1004';Excel 365 VBA for Mac

运行时错误';1004';Excel 365 VBA for Mac,excel,vba,Excel,Vba,您好,我正在使用Excel 365 for Mac,在编写以下代码时遇到1004错误: Sub Get_Data_From_File() Dim FileToOpen As String Dim OpenBook As Workbook Application.ScreenUpdating = False **FileToOpen = Application.GetOpenFilename(Title:="Browse for your File &am

您好,我正在使用Excel 365 for Mac,在编写以下代码时遇到1004错误:

Sub Get_Data_From_File()
    Dim FileToOpen As String
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    **FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range" _
    , FileFilter:="Excel Files (*.xls*),*xls*")**
    
  
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        OpenBook.Sheets(1).Range("a1:e20").Copy
        ThisWorkbook.Worksheets("SelectFile").Range("A10").PasteSpecial xlPasteValues
        OpenBook.Close False
        
    End If
    Application.ScreenUpdating = True
End Sub 
Sub-Get_Data_From_File()
Dim FileToOpen As String
将OpenBook设置为工作簿
Application.ScreenUpdating=False
**FileToOpen=Application.GetOpenFilename(标题:=“浏览文件和导入范围”_
,FileFilter:=“Excel文件(*.xls*),*xls*”)**
如果FileToOpen为False,则
设置OpenBook=Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).范围(“a1:e20”).副本
此工作簿。工作表(“SelectFile”)。范围(“A10”)。粘贴特殊XLPaste值
打开书本,关闭错误
如果结束
Application.ScreenUpdating=True
端接头
用**突出显示的部分是出现错误的地方。我知道Windows和Mac版本的excel之间存在一些差异。我正在尝试将数据从另一个表导入工作表。有人能帮助我了解如何解决上述问题吗? 谢谢