|
Private Sub CommandButton2_Click()
Dim wkbk As Workbook
myfilename = Application.GetOpenFilename("EXCEL文件(*.csv), *.xlsx", MultiSelect:=True)
If IsArray(myfilename) Then
Set wkbk = Workbooks.Open(myfilename(i))
Columns("A:I").Select
Selection.Copy
Application.WindowState = xlNormal
Windows("读取数据表格.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
wkbk.Close False
wkbk.Close False
Windows("读取数据表格.xlsm").Activate
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("B:C,F:H").Select
Selection.Delete Shift:=xlToLeft
End If
End Sub
|
|