-
Nhờ anh chị giúp đoạn code trên
frantliem > 27-12-14, 11:13 AM
Em có 1 đoạn code viết để import dữ liệu từ excel
Private Sub cmdTimtapTinTK994_Click()
With dlgTimTapTin
.DialogTitle = "Select Excel file"
.FileName = ""
.Filter = "Excel Files (*.xls)|*.xls|"
.ShowOpen
If .FileName = "" Or IsNull(.FileName) Then
Exit Sub
Else
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_saoketaisan994", .FileName, True
MsgBox "Da nhap xong du lieu vao bang", vbInformation
Exit Sub
End If
End With
End Sub
Em muốn Xóa table T_saoketaisan994 trước khi import
em chèn đoạn mã
DoCmd.DeleteObject acTable, T_saoketaisan994
nhưng không chạy. Mong mọi người giúp đỡ -
RE: Nhờ anh chị giúp đoạn code trên
thanhthienhg > 28-12-14, 09:33 PM
(27-12-14, 11:13 AM)frantliem Đã viết: Em có 1 đoạn code viết để import dữ liệu từ excel
Private Sub cmdTimtapTinTK994_Click()
With dlgTimTapTin
.DialogTitle = "Select Excel file"
.FileName = ""
.Filter = "Excel Files (*.xls)|*.xls|"
.ShowOpen
If .FileName = "" Or IsNull(.FileName) Then
Exit Sub
Else
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_saoketaisan994", .FileName, True
MsgBox "Da nhap xong du lieu vao bang", vbInformation
Exit Sub
End If
End With
End Sub
Em muốn Xóa table T_saoketaisan994 trước khi import
em chèn đoạn mã
DoCmd.DeleteObject acTable, T_saoketaisan994
nhưng không chạy. Mong mọi người giúp đỡ
Bạn thử viết lại là
DoCmd.DeleteObject acTable, "T_saoketaisan994"