【問題】如何將EXCEL中的中文字元去除



贊助商連結


joechung2008
2008-12-11, 08:09 PM
請教各位前輩:

我手邊有一份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