|
本帖最后由 qg5041 于 2017-6-17 16:30 编辑
如图,只求打开,分别是1 、2、3、以jihua*.csv、计划报告*.csv、统计报告*.csv、只求打开其中的一种,怎么更改呢?求大师帮助。
Private Sub CommandButton1_Click()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.csv")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With ThisWorkbook.ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Wb.Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
- Private Sub CommandButton1_Click()
- Dim MyPath, MyName, AWbName
- Dim Wb As Workbook, WbN As String
- Dim G As Long
- Dim Num As Long
- Dim BOX As String
- Application.ScreenUpdating = False
- MyPath = ActiveWorkbook.Path
- MyName = Dir(MyPath & "" & "*.csv")
- AWbName = ActiveWorkbook.Name
- Num = 0
- Do While MyName <> ""
- If MyName <> AWbName And (MyName Like "jihua*" Or MyName Like "计划报告*" Or MyName Like "统计报告*") Then
- Set Wb = Workbooks.Open(MyPath & "" & MyName)
- Num = Num + 1
- With ThisWorkbook.ActiveSheet
- .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
- For G = 1 To Wb.Sheets.Count
- Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
- Next
- WbN = WbN & Chr(13) & Wb.Name
- Wb.Close False
- End With
- End If
- MyName = Dir
- Loop
- Range("A1").Select
- Application.ScreenUpdating = True
复制代码
|
|