標題: 儲存格的設定怎麼會跑掉呢? [打印本頁]

---

作者: linshin1999    時間: 2011-3-21 01:17     標題: 儲存格的設定怎麼會跑掉呢?

With ActiveSheet.QueryTables.Add(Connection:=input_file, Destination:=Range("$A$1"))
         .RefreshStyle = xlInsertDeleteCells
         .AdjustColumnWidth = True
         .TextFilePlatform = 65001
         .TextFileStartRow = 1
         .TextFileParseType = xlFixedWidth
         .TextFileColumnDataTypes = Array(2, 2, 2, 2)
         .TextFileFixedColumnWidths = Array(3, 3, 3)
         .Refresh BackgroundQuery:=False
End With

不管資料有多大,以上的程式把資料讀進來後,[A][B][C]欄位的Type 應該就是文字型態,如果跑的過程都不去更動它,是不是一直都會是"文字"型態,星期天下午整個下午都在抓這樣的錯,如下:

Dim rs AS string
Dim mystr AS string

rs = "F41"
mystr = "% 08"
Range(rs).Value = mystr

到活頁簿去看時,F41 跑出來的值會變成 8%,各位有並過這樣的問題嗎?

後來用如下的方式解決了問題:
rs = "F41"
mystr = "% 08"
Range(rs).NumberFormatLocal = "@"
Range(rs).Value = mystr
請問各位有人有並過這樣的問題嗎?有更好的解決方法嗎?

---

作者: GBKEE    時間: 2011-3-21 07:04

回復 1# linshin1999
mystr = "'% 08"
加上'強制為文字型態

---

作者: linshin1999    時間: 2011-3-21 11:23

GBKEE 板主,謝謝!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)