Question

我需要以下内容，我在线查看，但我很遗憾...

我需要创建一个“底部”，当它“推”它打开一个现有文件夹，名称“数据库”，并在该文件夹中有多个选项卡，从“概述”选项卡获取这五个单元格（A23，A24 ，C23，F42和F56）并将它们复制到单元格（B24，B46，N45，K56和K29）“全局”选项卡上名为“tax＆amp; duty”的原始excel文件中，它们将它们全部加在一起并复制它们在L89上

我知道这对我来说非常具体而且非常困难，但我已经厌倦了尝试而没有找到解决方案，任何人都可以提供帮助？

Answer 1

Public Function FilePickerFunction$()
With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count <> 0 Then FilePickerFunction = .SelectedItems(1)
End With
End Function

Sub azert()
With Workbooks.Open(FilePickerFunction)
    ThisWorkbook.Range("MySheet!B24") = .Range("ItsSheet!A23") 'and so on
    ThisWorkbook.Range("MySheet!L89") = .Range("ItsSheet!A23") + ... 'and so on

    .Close
End With
End Sub

VBA宏复制特定单元格并对其中的一些进行求和，并将它们复制到不同的工作簿中

1 个答案: