[已解决]请老师指导一下， 运行错误’9‘，下标越界是啥意思，谢谢

hasyh2008

Sub GetData()
    Dim wb As Workbook
    Dim mp As String
    Dim mf As String
    Application.ScreenUpdating = False
    '以只读方式打开工作簿
    mp = ThisWorkbook.Path & "\" '路径
    Set wb = Workbooks.Open(mp & "数据.xlsx") '打开
    With ThisWorkbook.Sheets("Sheet1")
        '从工作簿中读取数据
        .Range("A1").Formula = wb.Sheets("Sheet1").Range("D8").Formula
        .Range("A2").Formula = wb.Sheets("Sheet1").Range("E8").Formula
        .Range("A3").Formula = wb.Sheets("Sheet1").Range("F8").Formula

    'wb.Sheets("表1").Range("A1").Copy .Range("A1") '复制
    End With
    wb.Close False '关闭打开的源数据工作簿且不保存任何变化
    Set wb = Nothing '释放内存
    Application.ScreenUpdating = True
End Sub

gaiety1974

sam-wang 发表于 2022-6-8 13:27
沒有檔案，看你提供圖片我猜多了 " . "，
請先試看看，如無法解決附上檔案，謝謝

我把点去掉，还是没有复制过来内容，但是感觉目的地单元格有被选中跳了一下，但是没有内容

gaiety1974

hasyh2008 发表于 2022-6-8 14:22
Sub GetData()
    Dim wb As Workbook
    Dim mp As String

谢谢老师， 我试一下看看，谢谢啦

sam-wang

gaiety1974 发表于 2022-6-8 14:05
您好，麻烦您了，帮我看下， 原文件内容太多，我把表内容都删了， 代码就在表里，帮我看下，谢谢

不太了解您的需求，測試是沒問題，開啟的檔案D8,E8,F8是空白，
請確認且說明一下需求為何，謝謝

hasyh2008

工作簿地址写的不对

gaiety1974

hasyh2008 发表于 2022-6-8 14:22
Sub GetData()
    Dim wb As Workbook
    Dim mp As String

谢谢，可以了，看了你的文件我搞明白了

hasyh2008

gaiety1974 发表于 2022-6-8 14:45
谢谢，可以了，看了你的文件我搞明白了

原来的代码也没问题

gaiety1974

hasyh2008 发表于 2022-6-8 14:22
Sub GetData()
    Dim wb As Workbook
    Dim mp As String

.Range("A1").Formula = wb.Sheets("Sheet1").Range("D8").Formula
老师我再请教一下我只要复制文本，或者纯数字，不要公式怎么改，谢谢

hasyh2008

.Range("A1").value = wb.Sheets("Sheet1").Range("D8").value

gaiety1974

hasyh2008 发表于 2022-6-8 15:01
.Range("A1").value = wb.Sheets("Sheet1").Range("D8").value

老师谢谢指导，可以了。
另外可以的话帮忙再问下，如果我的数据这个文件在目录下面有几个，文件名后缀不同，比如数据1，数据2等，我要分别复制这些表格中的数据，代码需要怎么修改，谢谢