EXCEL檔案內的儲存格內容如何寫VBA匯出成TXT檔案格式??
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WIN98
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2011-7-20
- 最後登錄
- 2011-7-20
|
EXCEL檔案內的儲存格內容如何寫VBA匯出成TXT檔案格式??
例如A1儲存格~A10儲存格裡面內容
如何利用VBA寫一個巨集按鈕將A1~A10儲存格內容匯出成一個TXT檔案呢?
煩請EXCEL達人大大可以寫出一個範例教學嗎? |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-7-20 11:26
| 只看該作者
回復 1# poison1
先錄製巨集看看 另存新檔可存為txt檔 |
|
|
|
|
|
|
|
- 帖子
- 47
- 主題
- 6
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Macau
- 註冊時間
- 2011-6-15
- 最後登錄
- 2016-7-4
|
3#
發表於 2011-7-20 11:27
| 只看該作者
本帖最後由 StanleyVic 於 2011-7-20 11:35 編輯
這是我平時為了方便工作而寫的.
如大大們看了.有不善的地方,也有待大大們的指導..( 本人也耐心受教.謝謝^_^)
Private Sub CommandButton1_Click()
Dim AA, BB, CC, DD, EE, FF, GG As String
Dim r As Integer
Open "D:\test\test.txt" For Output As #1 '定義Output File位置
For r = 1 To [A65536].End(xlUp).Row '定義行內容範圍
'自由設定( 本人的例子是每個格都有它各自規定的字符長度,所以就建立了公式,同時也為了方便對齊) :
AA = Cells(r, 1) & Application.WorksheetFunction.Rept(" ", 20 - Len(Cells(r, 1)))
BB = Application.WorksheetFunction.Rept(" ", 3 - Len(Cells(r, 2))) & Cells(r, 2)
CC = Application.WorksheetFunction.Rept(" ", 13 - Len(Cells(r, 3))) & Cells(r, 3) & ".00"
DD = Cells(r, 4) & Application.WorksheetFunction.Rept(" ", 10 - Len(Cells(r, 4)))
EE = Cells(r, 5) & Application.WorksheetFunction.Rept(" ", 8 - Len(Cells(r, 5)))
FF = Cells(r, 6) & Application.WorksheetFunction.Rept(" ", 10 - Len(Cells(r, 6)))
GG = Cells(r, 7) & Application.WorksheetFunction.Rept(" ", 10 - Len(Cells(r, 7)))
mystr = AA & BB & CC & DD & EE & FF & GG
Print #1, mystr
Next r
Close #1
End Sub |
|
|
NeverTry , NeverNo !
|
|
|
|
|
- 帖子
- 47
- 主題
- 6
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Macau
- 註冊時間
- 2011-6-15
- 最後登錄
- 2016-7-4
|
4#
發表於 2011-7-20 11:45
| 只看該作者
本帖最後由 StanleyVic 於 2011-7-20 12:00 編輯
回復 2# GBKEE
啊.????!!!!! 果然強 !!! 我忘了可以用錄!!! Y_Y" ( 版主~~我又學習學習了...)
Sub Macro1()
ChDir "D:\Test"
ActiveWorkbook.SaveAs Filename:="D:\Test\Macro.txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub
e..等一下.等一下..請看看下圖.
為什麼出來的TXT 下面有這麼多空白的地方 ?
(ps: 我的EXCEL 中 己經查看了.只有頭10行有東西,下面的沒有內容!) |
|
|
NeverTry , NeverNo !
|
|
|
|
|
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WIN98
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2011-7-20
- 最後登錄
- 2011-7-20
|
5#
發表於 2011-7-20 11:54
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 47
- 主題
- 6
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Macau
- 註冊時間
- 2011-6-15
- 最後登錄
- 2016-7-4
|
6#
發表於 2011-7-20 11:59
| 只看該作者
本帖最後由 StanleyVic 於 2011-7-20 14:43 編輯
" GBKEE ~ 版主" 在上面,己經說了可以試一下用 錄製巨集 !
如果不明白的話, 你不介意.可以用我.剛才測試的代碼
Sub Macro1()
ChDir "D:\Test"
ActiveWorkbook.SaveAs Filename:="D:\Test\Macro.txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub
****************************
如果樓主不明白的話.也可以用以這段代碼. 你會容易簡讀
Sub XlsToTxT()
Dim MYstr As String, i As Integer '定義屬性
Open "D:\test\test.txt" For Output As #1 '定義Output File位置
For i = 1 To 10 '由 Row 1to10
MYstr = Cells(i, 1) '輸出的內容 (或你要的東西,可在此開始自己定義吧~)
Print #1, MYstr
Next i
Close #1
End Sub
希望這個兩例子對你幫助 ! |
|
|
NeverTry , NeverNo !
|
|
|
|
|
- 帖子
- 125
- 主題
- 33
- 精華
- 0
- 積分
- 223
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Excel 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2010-9-6
- 最後登錄
- 2024-6-8
|
7#
發表於 2017-10-26 21:08
| 只看該作者
回復 2# GBKEE
GBKEE大大
能請教
1.如何將 excel
Worksheets("圖表").Range("L16:AE75").Value '內容資料
匯出成 資料.txt檔
附上檔案
資料檔案 (test.xls)
希望匯出 txt檔 (資料.txt)
 test.rar (9.02 KB)
感激不盡
2.先錄製巨集看看
爬文沒找到，能請教 GBKEE大大
excel 錄製的時候，看到匯出是 灰色的無法點
該怎麼 錄製，不懂
能請教一下 感恩 |
|
|
50 字節以內
不支持自定義 Discuz! 代碼
|
|
|
|
|
