Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Xuất giá trị từ các Text Box ra file TXT
#11
(04-01-16, 09:35 PM)ongke0711 Đã viết: Cách làm này của tôi chỉ xuất nhưng gì hiển thị trên textbox trên form, không xuất dữ liệu từ table hay query của form.
Share với bạn 2 kiểu xuất: Excel và Txt.
- Tạo thêm 1 textbox dùng để lưu cái chuỗi tổng hợp như bạn yêu cầu [txtTongHop].
- Viết 2 cái Sub, XuatExcel và writeText (dùng FileSystemObject). Code như bên dưới.

Mã PHP:
Sub XuatExcel()
Dim xlApp As Object
Set xlApp 
CreateObject("Excel.Application")
With xlApp
   
.Workbooks.Add  'Open ("D:\TestFile.xlsx")'
   .Sheets("Sheet1").Select
   
.Range("A1") = Me.txtTongHop.Value
   
.Visible True
   
'.ActiveWorkbook.Close True'
End With
Set xlApp 
Nothing
End Sub

Sub writeText
(strText As String)
   Const ForReading 1ForWriting 2ForAppending 8
   Const TristateUseDefault 
= -2TristateTrue = -1TristateFalse 0
   Dim fso
MyFileFileNameTextLine
   Set fso 
CreateObject("Scripting.FileSystemObject")
   'Duong dan file .txt se xuat ra'
   FileName "D:\TestFile.txt"
   Set MyFile fso.OpenTextFile(FileName2True, -1'-1: Unicode; 0: ASCII; -2: System default'
   MyFile.WriteLine strText
   MyFile
.Close
End Sub

Sub TongHopChuoi
()
   Dim strText As String
   strText 
Me.Label2.Caption Me.Text1 Me.Text8 ", "
   strText strText Me.Label4.Caption Me.Text2 Me.Text8 ", "
   strText strText Me.Label6.Caption Me.Text3 Me.Text8
   Me
.txtTongHop strText
End Sub

Private Sub cmdXuatExcel_Click()
   Call TongHopChuoi
   Call XuatExcel
End Sub

Private Sub cmdXuatTxt_Click()
   Call TongHopChuoi
   Call writeText
(Me.txtTongHop.Value)
End Sub 

File demo: http://www.mediafire.com/download/lo1xg9...T%29.accdb

ongke ơi, mình đã test dc code trên của bạn, nhưng mình sửa lại thay vì chép vào file txt có sẵn, mình cho nó xuất thành file txt mới rồi ghi lên file đó theo ý mình.
Mã:
Dim name As String
   name = Day(Date) & Month(Date) & Year(Date) & "_" & Hour(Time()) & Minute(Time()) & Second(Time())
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim fso, MyFile, FileName, TextLine
   Set fso = CreateObject("Scripting.FileSystemObject")
   'Duong dan file .txt se xuat ra'
   FileName = CurrentProject.Path & "\" & name & ".txt"
   'FileName = CurrentProject.Path & "\log.txt"
   Set MyFile = fso.CreateTextFile(FileName, True, -1)
   'Set MyFile = fso.OpenTextFile(FileName, 2, True, -1) '-1: Unicode; 0: ASCII; -2: System default'
   MyFile.WriteLine txtnhatky
   MyFile.Close
015
Chữ ký của quyvt1993 Xin chào, mình là quyvt1993, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 150 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
Photo Hướng dẫn tính tôn kho từ một bảng chi tiết nhập xuất tt1212 8 399 17-06-16, 04:47 PM
Bài mới nhất: tt1212
  Về việc lập trình truy xuất thông tin từ cổng RS232 trong Access VBA lehongduc 0 133 23-05-16, 11:43 AM
Bài mới nhất: lehongduc
  Tùy chọn liên kết đến file Data DoquangLam 20 7,976 08-08-15, 10:45 PM
Bài mới nhất: maidinhdan
  [Hỏi] Code gửi một File đến một địa chỉ mail có sẵn truonggiang 0 342 23-10-14, 11:44 AM
Bài mới nhất: truonggiang

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ