Giúp e export file excel ra file txt với ạ

[dienthoaitot]

Hi các bác,

E có vấn đề muốn nhờ các bác giúp đỡ ạ:

E có một file excel như trong file đính kèm, giờ e muốn export toàn bộ giữ liệu ra file txt với định dạng export của file txt như trong file đính kèm .

Mong các bác giúp đỡ e với ạ.

E xin cảm ơn !

 

[khoavu87]

bạn thử cho đoạn code này vào file của bạn xem sao?

Sub Macro1()
Range("b1").Value = "|5"
Range("b2").Value = "|6"
Range("b3").Value = "|7"
Range("b4").Value = "|8"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Good Luck\Desktop\nguyet.txt"
Application.WindowState = xlNormal
End Sub

 

[sealand]

Bạn đang mở file và sheet chuyển-- >vào Menu File-->chọn Save As--> trong ô Save as type chọn dạng file text phù hợp là OK

 

[dienthoaitot]

E cảm ơn 2 bác đã comment giúp e
@khoavu87 : bác ơi, e noop excel lắm, nên không biết chèn vào như nào , bác có thể cho e file excel mẫu không ạ? e cảm ơn !

 

[yeudoi]

E cảm ơn 2 bác đã comment giúp e
@khoavu87 : bác ơi, e noop excel lắm, nên không biết chèn vào như nào , bác có thể cho e file excel mẫu không ạ? e cảm ơn !

Mình tìm và làm giúp cho bạn nè.

 

[dienthoaitot]

bác yeudoi ơi,

hình như bác gửi e file nhìn lạ quá, em export ra file txt duoc roi, nhưng vấn đề là file txt e muốn định dạng như trong file e đính kèm ở bài viết đầu tiên mà

tức là ở dạng:

row1|number
row2|numer

có dấu | ở giữa 2 colum đó bác,

bác xem lại giúp e với.

 

[sealand]

Mình tham gia một cách nữa, code như sau (Đây là code mình Modify từ Help của Excel):

Option Explicit
Sub ToText()
Dim fs, a
Dim Ten, Dong As String
Dim i, j As Integer
Ten = InputBox("File nay luu tai o C:\.Ban nhap ten File:")
Ten = "C:\" & Ten & ".txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Ten, True)
For i = 2 To Sheet1.[a56536].End(xlUp).Row
For j = 1 To 4
Dong = Dong & IIf(j = 1, "", "|") & Sheet1.Cells(i, j)
Next
a.WriteLine (Dong)
Dong = ""
Next
a.Close
End Sub

 

[yeudoi]

bác yeudoi ơi,

hình như bác gửi e file nhìn lạ quá, em export ra file txt duoc roi, nhưng vấn đề là file txt e muốn định dạng như trong file e đính kèm ở bài viết đầu tiên mà

tức là ở dạng:

row1|number
row2|numer

có dấu | ở giữa 2 colum đó bác,

bác xem lại giúp e với.

Bạn muốn dấu ở chỗ nào thì bạn thêm & " " & vào chỗ đó. Bạn xem thử nha

MyStr = MyStr & "|" & String(7 - Len(Cells(MyRow, 2).Value), " ") & Cells(MyRow, 2).Value

 

[dienthoaitot]

e đã lưu file của bác sealand, file đó là file e cần !

E cảm ơn các bác nhiều ạ