vba - 使用 VBA 代码复制和粘贴数据

Question

我的电子表格上有一个按钮，按下该按钮后，用户应该可以打开文件，然后复制电子表格“数据”的 A-G 列，然后将这些列中的数据粘贴到当前工作表上。

我的代码有逻辑错误；它运行了，但将选择粘贴到了错误的位置。

我在引用这两本工作簿时遇到问题。

这是我的代码:

Sub Button1_Click()
    Dim excel As excel.Application
    Dim wb As excel.Workbook
    Dim sht As excel.Worksheet
    Dim f As Object

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show

    Set excel = CreateObject("excel.Application")
    Set wb = excel.Workbooks.Open(f.SelectedItems(1))
    Set sht = wb.Worksheets("Data")

    sht.Activate
    sht.Columns("A:G").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste

    wb.Close
End Sub

Answer 1

使用 PasteSpecial 方法:

sht.Columns("A:G").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues

但是你的大问题是你将 ActiveSheet 更改为“数据”而不是将其更改回来。根据我的代码，您不需要执行激活和选择(这假设您的按钮位于要复制到的工作表上)。