返回列表 上一主題 發帖

[發問] 想請教如何從一個txt檔轉出成很多個excel檔

flowrew

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
汐止 
註冊時間
2015-2-25 
最後登錄
2015-3-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-25 13:58 | 顯示全部帖子

[發問] 想請教如何從一個txt檔轉出成很多個excel檔

本帖最後由 GBKEE 於 2015-2-25 15:05 編輯

各位親愛的大大午安
    有個小問題想要跟各位請益，
    要如何將一個有好幾行資料的txt檔，匯出成每一行一個excel檔
    小弟目前的txt檔格式如下
   
    如圖所示有三行資料
    上面SN及Model是要輸出的每個execl都要代入的
    然後三行資料各自匯到各excel
   
   其中C欄的資料內有兩部分，第一部分跟第二部分中間有個空格，各自要拉到不同的excel欄位

   目前小弟只會做選檔案按鍵跟排到excel，苦手，請各位的幫忙，萬分感謝
收藏 分享

flowrew

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
汐止 
註冊時間
2015-2-25 
最後登錄
2015-3-12 
2#
發表於 2015-2-26 10:37 | 顯示全部帖子
回復 2# luhpro

謝謝luhpro大的回答，解了不少疑惑，非常感謝。<(_ _)>

luhpro大的方式是把他們合成一個excel
我的目的是希望能夠從這個有三行資料的txt檔匯成3個excel
每1個excel裡面就只有一行資料
我卡在這邊動不了。

TOP

flowrew

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
汐止 
註冊時間
2015-2-25 
最後登錄
2015-3-12 
3#
發表於 2015-2-26 14:49 | 顯示全部帖子
橫的叫列, 不叫行
bobomi 發表於 2015-2-26 11:43


阿    對不起    小弟搞不清楚   感謝大大指教

TOP

flowrew

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
汐止 
註冊時間
2015-2-25 
最後登錄
2015-3-12 
4#
發表於 2015-2-26 14:51 | 顯示全部帖子
回復  flowrew
stillfish00 發表於 2015-2-26 14:08


多謝大大，真的分成三份了，太強了，感謝您的指導

TOP

flowrew

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
汐止 
註冊時間
2015-2-25 
最後登錄
2015-3-12 
5#
發表於 2015-2-26 18:19 | 顯示全部帖子
Dear  stillfish00大大

想請教一下，我用巨集錄了個form，只是簡單的上色及加上標語，拉格子大小等
希望能夠當excel每一個值帶入後(就是您寫的程式的第56列後面)加上這個巨集把excel畫面整理。
但是測試都出現1004。我沒有宣告任何東西，只是把那個巨集加上去。
後來再逐行除錯的時候，一到我加的第一行就卡住了。
再煩請您幫幫忙，感恩~
大概如下面這樣
  1.   sName = Left(vFile, Len(vFile) - 4)
  2.     For i = 0 To oMatch.Count - 1
  3.         With Workbooks.Add
  4.             With .Sheets(1)
  5.                 .[B3].Value = "SN"
  6.                 .[C3].Value = sSN
  7.                 .[B4].Value = "Model"
  8.                 .[C4].Value = sModel
  9.                
  10.                 .[B6].Value = arHeader(0)
  11.                 .[C6].Value = oMatch(i).submatches(0)
  12.                 .[B7].Value = arHeader(1)
  13.                 .[C7].Value = oMatch(i).submatches(1)
  14.                
  15.                 .[B9].Value = arHeader(2)
  16.                 .[C9].Value = oMatch(i).submatches(2)
  17.                 .[C10].Value = oMatch(i).submatches(3)

  19.                 .[B11].Value = arHeader(3)
  20.                 .[C11].Value = oMatch(i).submatches(4)
  21.             End With
  22.         
  23.                     Range("B2").Select
  24.                     ActiveCell.FormulaR1C1 = "甲"
  25.                     Range("B3").Select
  26.                     ActiveCell.FormulaR1C1 = _
  27.                         "乙" & Chr(10) & "丙"
  28.                     Range("B2:H2").Select
  29.                     With Selection
  30.                         .HorizontalAlignment = xlCenter
  31.                         .VerticalAlignment = xlBottom
  32.                         .WrapText = False
  33.                         .Orientation = 0
  34.                         .AddIndent = False
  35.                         .IndentLevel = 0
  36.                         .ShrinkToFit = False
  37.                         .ReadingOrder = xlContext
  38.                         .MergeCells = False
  39.                     End With
複製代碼

TOP

flowrew

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
汐止 
註冊時間
2015-2-25 
最後登錄
2015-3-12 
6#
發表於 2015-3-3 09:19 | 顯示全部帖子
回復 9# stillfish00

Dear stillfish00大
我把東西放在附件裡,FYI
另外為何不能使用select，再請您指導，感恩

Desktop.rar (3.45 KB)

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題