Excel表格,帮忙做两个按钮? excel表格下拉选项多选

2828℃ RAQUEL

Excel表格,帮忙做两个按钮?excel表格下拉选项多选

Excel中如何用2个按钮分别导入另两个XLS文件中的数据到指定位置

只能利用VBA来完成,如果有什么问题请给我留言。

根据你的需求不同,可能处理难度不同而已。

补充回答:

Sub test()

Dim wkbk As Workbook '定义一个工作薄

Dim myFileName As String '定义要读取的文件路径

Dim rgA1 As String'定义要读取的单元格A1

Dim rgB10 As String'定义要读取的单元格B10

myFileName = Application.GetOpenFilename("EXCEL文件(*.xls), *.xls") '浏览文件,如XX公司08年XX表.xls

If myFileName = "False" Then '如果按取消那么弹出对话框

MsgBox "请选择文件!", vbInformation, "取消"

Else

Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件

'这里要复制打开的XX公司08年XX表.xls表1中的A1、表2的B10,到本表A2、A3如何写?

wkbk.Activate‘激活打开工作簿

Sheets("Sheet1").Activate

rgA1 = Cells(1, 1) '取得A1

Sheets("Sheet2").Activate

rgB10 = Cells(10, 2)'取得B10

wkbk.Close False '关闭工作薄

Cells(2, 1) = rgA1’给目标格赋值A2

Cells(3, 1) = rgB10’给目标格赋值A3

MsgBox "文件导入成功,请保存该文件!"

' End If

End If

End Sub