請教各位前輩:
我手邊有一份TXT檔案,要將資料載入EXCEL特定的儲存格內,
我是以空白做區隔,依序丟入佔暫存的Sheet1,但是發現資料裡面有一些中文和我所要的數字連在一起,放再同一個儲存格
我的問題是:1.如何在TXT載入以前就先把中文去除?
2.TXT檔案內的路徑資料可以去除嗎?
PS.懇請前輩們不吝指教,這問題我想很久了,謝謝
我的VBA如下:
語法:
Sub Micro1()
Dim mystr As String
mydir = "D:\" 'TXT檔存放路徑
myfn = "A1.txt" 'TXT檔名
Application.ScreenUpdating = False
On Error Resume Next
'開始匯入文字檔
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & mydir & myfn, Destination:=Range("A1"))
'捲動視窗到左上角第一個儲存格開始
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.TextFileConsecutiveDelimiter = True
'選擇性的 Variant。若指定為 True,Microsoft Excel 將把連續的分隔符號視為一個分隔符號。預設值為 False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
'尋找儲存格內的文字 Average
Set rng = ActiveSheet.UsedRange.Find(what:="Average", lookat:=xlWhole)
If rng Is Nothing Then
MsgBox mydir & myfn & " 檔案內找不到 Average"
Else
Workbooks.Open Filename:="D:\TEST.xls"
Sheets("CPS_OS").Select
With Sheets("CPS_OS")
.Range("D6").Value = rng.Offset(0, 4) / 100
If rng.Offset(1, 8) <> "" Then
mystr = rng.Offset(1, 8)
.Range("B7").Value = Split(mystr, "k")
End If
If rng.Offset(1, 10) <> "" Then
mystr = rng.Offset(1, 10)
.Range("C7").Value = Split(mystr, "k")
End If
.Range("C8").Value = rng.Offset(4, 5)
.Range("D11").Value = rng.Offset(6, 4)
.Range("D12").Value = rng.Offset(13, 4)
.Range("D13").Value = rng.Offset(17, 4)
.Range("D14").Value = rng.Offset(20, 4)
.Range("D15").Value = rng.Offset(21, 4)
.Range("D16").Value = rng.Offset(22, 4)
End With
End If
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
End Sub
書籤