Tweet
Đây là chương trính lưu số sản phẩm đếm được từ cảm biến hiển thị bằng VB vào Excel. Em gặp vấn đề là lưu kết quả lần thứ nhất vào dòng đầu trong excel thì ok rồi nhưng lưu kết quả cho đếm tiếp theo vào dòng tiếp theo của bản excel đó thì lại không được. Nó lại bắt lưu bản mới thay thế bản trước.
Mong các bác sửa giúp e
E xin chân thành cảm ơn!
Đoạn chương trình lưu dữ liệu:
'khai báo biến cần dùng
Dim fWorking As Boolean
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim STT As Integer
' hàm lưu sản phẩm
Private Sub Command4_Click()
Dim Cells As String
'kiem tra xem da tao worksheet chua
If fWorking <> True Then
fWorking = True
Set oExcel = New Excel.Application
Set oBook = oExcel.Workbooks.Add
'chon worksheet d?u trong workbook
Set oSheet = oBook.Worksheets(1)
'Thêm hàng tiêu de cua bang du lieu
oSheet.Range("A1: D1").Value = Array("STT", "So san pham BT1", "So san pham BT2", "Thoi gian")
STT = 1
End If
'Thêm hàng du lieu moi tu các textbox, bat dau tu cell A2
Cells = "A" & (STT + 1) & ": D" & (STT + 1)
oSheet.Range(Cells).Value = Array(CStr(STT), txtText1.Text, txtText2.Text, txtLabel3.Caption)
'Tang so thu tu cho lan luu ke tiep
STT = STT + 1
'dinh dang do rong worksheet theo du lieu
With oSheet.Range("A1: D1")
.EntireColumn.AutoFit
End With
oBook.SaveAs "C:\sosanpham.xls", xlWorkbookNormal
oExcel.Quit
End Sub
Mong các bác sửa giúp e
E xin chân thành cảm ơn!
Đoạn chương trình lưu dữ liệu:
'khai báo biến cần dùng
Dim fWorking As Boolean
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim STT As Integer
' hàm lưu sản phẩm
Private Sub Command4_Click()
Dim Cells As String
'kiem tra xem da tao worksheet chua
If fWorking <> True Then
fWorking = True
Set oExcel = New Excel.Application
Set oBook = oExcel.Workbooks.Add
'chon worksheet d?u trong workbook
Set oSheet = oBook.Worksheets(1)
'Thêm hàng tiêu de cua bang du lieu
oSheet.Range("A1: D1").Value = Array("STT", "So san pham BT1", "So san pham BT2", "Thoi gian")
STT = 1
End If
'Thêm hàng du lieu moi tu các textbox, bat dau tu cell A2
Cells = "A" & (STT + 1) & ": D" & (STT + 1)
oSheet.Range(Cells).Value = Array(CStr(STT), txtText1.Text, txtText2.Text, txtLabel3.Caption)
'Tang so thu tu cho lan luu ke tiep
STT = STT + 1
'dinh dang do rong worksheet theo du lieu
With oSheet.Range("A1: D1")
.EntireColumn.AutoFit
End With
oBook.SaveAs "C:\sosanpham.xls", xlWorkbookNormal
oExcel.Quit
End Sub
Comment