- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2010-8-31 00:41
| 只看該作者
公司有一些卡鐘資料
例如:20100826,0827,1234
20100826,0844,3586
20100826,1844,7896
文 ...
anotny 發表於 2010-8-30 21:39 
方法有很多, 這個是選上文檔直接匯入-
- sub test()
- Dim filename As String
- With Application.FileDialog(msoFileDialogOpen)
- .AllowMultiSelect = False
- .Show
- If .SelectedItems.Count > 0 Then
- filename = .SelectedItems(1)
- Else
- Exit Sub
- End If
- End With
-
- Dim oFSO
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- Set sdmax = CreateObject("Scripting.Dictionary")
- Set sdmin = CreateObject("Scripting.Dictionary")
- Dim strDate As String
- Dim strTime As String
- Dim strNo As String
- Set oFS = oFSO.OpenTextFile(filename)
- Do Until oFS.AtEndOfStream
- sText = oFS.ReadLine
- strDate = Split(sText, ",")(0)
- strTime = Split(sText, ",")(1)
- strNo = Split(sText, ",")(2)
-
- If sdmin.exists(strNo) Then
- sdmax(strNo) = strTime
- Else
- sdmin.Add strNo, strTime
- sdmax.Add strNo, strTime
- End If
-
- Loop
-
- Range("A1").Resize(sdmin.Count, 1).Value = Application.Transpose(sdmin.keys)
- Range("B1").Resize(sdmin.Count, 1).Value = Application.Transpose(sdmin.items)
- Range("C1").Resize(sdmin.Count, 1).Value = Application.Transpose(sdmax.items)
- Set sdmin = Nothing
- Set sdmax = Nothing
- oFS.Close
- oFSO = Null
- end sub
|
|
發表於 2010-8-30 21:39
| 
