Chuyển biến thành file text làm sao? (2 người xem)

[hoang_B]

Chào mọi người, cho em hỏi làm sao để đưa 1 biến temp được lưu thành 1 file text (*.txt) vậy.
Em có 1 code ghép nhiều đoạn text trong file nhưng lại không biết xuất nó ra 1 file *.txt như thế nào cả?
Mong mọi người chỉ giùm.
Xin chân thành cảm ơn.
Thân.

 

[hoang_B]

Có ai biết vấn đề này không? Qua chỉ em 1 cái.
Hello everybody.

 

[cadafi]

Chào mọi người, cho em hỏi làm sao để đưa 1 biến temp được lưu thành 1 file text (*.txt) vậy.
Em có 1 code ghép nhiều đoạn text trong file nhưng lại không biết xuất nó ra 1 file *.txt như thế nào cả?
Mong mọi người chỉ giùm.
Xin chân thành cảm ơn.
Thân.

Giả sử ta có biến mTmp, đoạn code sau sẽ lưu giá trị của biến mTmp vào thư mục D:\
Tên file sẽ lấy quy ước sau: TmpYYMMDDss.txt (ss là giây)

Sub BackupText()
Dim mTmp As String
mTmp = "www.giaiphapexcel.com"  '<---- gán giá trị cho biến mTmp
Workbooks.Add
ActiveWorkbook.ActiveSheet.[A1] = mTmp
ActiveWorkbook.SaveAs Filename:= _
"D:\Tmp_" & Format(Now(), "yyyymmddss") & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close True
End Sub