- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2011-9-23 16:36
| 只看該作者
回復 3# herhsiu - Sub 匯入文字檔()
- Dim i As Integer, ii As Integer, Mystr As String
- With Application.FileDialog(msoFileDialogFilePicker) '[檔案選擇器]
- .AllowMultiSelect = True '可多重選擇檔案
- .Title = "文字檔 匯入excel" '[檔案選擇器] 的標題
- .Filters.Clear '清除 [檔案選擇器] 對話方塊的檔案篩選
- .Filters.Add "文字檔", "*.txt", 1 '新增 [檔案選擇器] 對話方塊的檔案篩選
- '篩選清單中新控制項所在位置的數值 1
- .Filters.Add "*.*", "*.*", 2 '新增 [檔案選擇器] 對話方塊的檔案篩選
- '篩選清單中新控制項所在位置的數值 2
- .FilterIndex = 1 '當檔案對話方塊首次開啟時，預設篩選判定所顯示的檔案類型。
- If .Show = 0 Then Exit Sub '沒選擇檔案時離開檔案
- For i = 1 To .SelectedItems.Count '依序在選擇檔案數目的迴圈
- Open .SelectedItems(i) For Input As #1 '開啟文字檔
- Do While Not EOF(1) '不是檔案底部時 執行迴圈
- Input #1, Mystr '從已開啟的循序讀取資料，並將資料指定給變數。->mystr
- If Mystr Like "*test*" Then '請修改"test" 為->要你搜尋某一字串
- Cells(ii + 1, "a") = Mystr '整列匯入工作表
- ii = ii + 1 '下一列
- End If
- Loop
- Close #1 '關閉文字檔
- Next
- End With
- End Sub
|
|
發表於 2011-9-26 17:08
| 
