VBA 初學者 ![]() | 【問題】如何將EXCEL中的中文字元去除 請教各位前輩: 我手邊有一份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 此篇文章於 2008-12-13 01:56 AM 被 joechung2008 編輯。. |
回覆 |
|
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。