编程论坛 → Excel/VBA论坛

控件代码求助

atwoods 发布于 2020-04-15 12:33， 1868 次点击

设置一个控件按键，点击按键，选择桌面上的excel,然后打开选中的excel,复制粘贴里面的数据到指定的sheet中。这个应该怎么写，请大神们赐教，非常感谢!

2 回复

rhloo2020-05-22 11:00

以下是打开文件的代码，放在按键点击事件中，复制粘贴操作按自己的需求

程序代码：

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls*"
    .Show
End With

atwoods2020-06-08 21:41

哥们，太感谢了，搞定了，大神啊