返回列表 上一主題 發帖

EXCEL檔案內的儲存格內容如何寫VBA匯出成TXT檔案格式??

StanleyVic

帖子
47 
主題
6 
精華
0 
積分
74 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2011-6-15 
最後登錄
2016-7-4 
1# 跳轉到 »
發表於 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 !

TOP

StanleyVic

帖子
47 
主題
6 
精華
0 
積分
74 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2011-6-15 
最後登錄
2016-7-4 
2#
發表於 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 !

TOP

StanleyVic

帖子
47 
主題
6 
精華
0 
積分
74 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2011-6-15 
最後登錄
2016-7-4 
3#
發表於 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 !

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題