作者csieain ( )
站內Programming
標題[問題] VBA 讀檔後用兩個符號分割字串
時間Fri May 17 16:26:59 2013
各位大大… 小妹實在是VBA的新新新手…
想要求助一下
目前讀檔後只能用一個符號分割字串
可否幫忙看看要怎麼改才能用兩個符號，分別是" "以及"|"來區分
而且重覆的符號視為一個
Option Explicit
Private Sub MemoryLoad()
Dim Separator As String
Separator = " "
ThisWorkbook.Sheets(2).Columns.Delete
Dim v, qt
With Application.FileDialog(3)
.Filters.Clear
.Filters.Add "All Text Files", "*.txt"
.AllowMultiSelect = True
.Title = "Please select txt file"
If .Show Then
For Each v In .SelectedItems
Set qt = ThisWorkbook.Sheets(2).QueryTables.Add("TEXT;" & v,
ThisWorkbook.Sheets(2).Range("A2"))
qt.TextFileOtherDelimiter = Separator
qt.Refresh True
Next
End If
End With
ActiveWorkbook.Sheets(2).Select
MsgBox "Finish!"
End Sub
感謝各位大大…
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.9.50.130
1F：→ MOONRAKER:你input咧？ 118.163.12.174 05/17 18:21