返回列表 上一主題 發帖

[發問] vba txt外部資料匯入/匯出問題

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-7 15:01 | 只看該作者

[發問] vba txt外部資料匯入/匯出問題

論壇內有些文章是描述 Txt匯出匯入之情形，
但對於 txt列數計算似乎沒提到很多
小弟在此提出幾點疑問，煩請各位前輩指教。
1.       .TextFileStartRow = 2   '此代碼為 從第二列作為基準，並加以匯入
         此段的 2  是否可用替代方案去更換，如 KKS = 2          .TextFileStartRow = KKS

2.      若文件檔案，文字是充滿的話，是可以依照一列有多少個字數下去做判斷
          如總字數100 ， 單列字數40  則為3列 ( (100/40 )   +1  無條件進位法)
           但若牽扯到 空白列 、 特殊符號  段行 自動換行  則此方法救無效，是否有解?

3.         在計算總字數時，如Text內容字數為 100 字，但計算時，有時候會出現102字 <無空格、斷行>
           請問這是甚麼原因？
  1.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\123.txt", Destination _
  2.         :=Range("$d$1"))
  3.         .Name = "123"
  4.         .FieldNames = True
  5.         .RowNumbers = False
  6.         .FillAdjacentFormulas = False
  7.         .PreserveFormatting = True
  8.         .RefreshOnFileOpen = False
  9.         .RefreshStyle = xlInsertDeleteCells
  10.         .SavePassword = False
  11.         .SaveData = True
  12.         .AdjustColumnWidth = True
  13.         .RefreshPeriod = 0
  14.         .TextFilePromptOnRefresh = False
  15.         .TextFilePlatform = 950
  16.         .TextFileStartRow = 2
  17.         .TextFileParseType = xlDelimited
  18.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  19.         .TextFileConsecutiveDelimiter = False
  20.         .TextFileTabDelimiter = True
  21.         .TextFileSemicolonDelimiter = False
  22.         .TextFileCommaDelimiter = False
  23.         .TextFileSpaceDelimiter = False
  24.         .TextFileColumnDataTypes = Array(2)
  25.         .TextFileTrailingMinusNumbers = True
  26.         .Refresh BackgroundQuery:=False
  27.     End With
複製代碼
收藏 分享

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題