返回列表下一主題上一主題發帖

儲存格的設定怎麼會跑掉呢?

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 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
請問各位有人有並過這樣的問題嗎?有更好的解決方法嗎?