|
Private Sub CommandButton1_Click()
Dim T As Date
T = Timer
Dim strPath As String, d, d1, d2, d3 As Object, arr, brr, crr, drr, i As Long, n As Long, shnm
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPath = Application.GetOpenFilename("Excel Files(*.xls;*.xlsx),*.*", , "请选择文件")
If Len(Dir(strPath)) = 0 Then Exit Sub
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
With ActiveWorkbook.Worksheets("Sheet1") '为了确定用那个工作簿里的工作表,直接set下
With GetObject(strPath) '只读打开 ,条件结果放入字典
.......................
|
|