-
Tùy biến chọn file Excel để Import vào Access
Noname > 31-08-10, 09:12 AM
Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library. (chọn 10.0 đối với AccessXP)
Và bây giờ bắt đầu:
Tạo 1 form tên là frmTest
Vẽ 1 Textbox tên là txtPath.
Vẽ 1 nút nhấn là cmdSelectfile
Vẽ 1 textBox đặt là txtRange để bạn nhập tên sheet muốn import vào
Vẽ 1 Textbox đặt tên là txtTable để bạn nhập tên Table muốn lưu
Vẽ 1 nút nhấn có tên cmdImport
Tạo 1 module copy đoạn code sau vào:
Mã:Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With
End Function
Và lưu thành tên Module 1
Trong event Onclick của nút cmdSelectfile, ta nhập như sau:
Mã:Private Sub cmdSelectfile_Click()
Me![txtPath] = getFile("c:\", "Select the Excel File", "*.xls")
End Sub
Trong event Click của nút cmdImport, ta nhập như sau:
Mã:Private Sub cmdImport_Click()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, txtTenTable, txtPath, True, txtRange
MsgBox "import thanh cong"
End Sub
Giờ sử dụng: đầu tiên ta click vào nút cmdSelectfile để chọn file Excel muốn import
Nhập tên Sheet muốn import vào txtRange (ví dụ: Sheet1!:A1:H300)
Nhập tên table muốn lưu. (Ví dụ: Table1)
Và nhấn Nút Import
Rồi hưởng thành quả
DownloadDemo -
RE: Tùy biến chọn file Excel để Import vào Acces
heroic > 02-01-11, 02:02 PM
Bác Noname ơi có ví dụ nào nhập liệu từ 1 dòng dữ liệu cuối của data sheet excel (hoặc chọn được dòng thì càng tốt) vào các textbox nhập liệu của form access (bằng 1 Macro nút lệnh chọn file excel và dòng dữ liệu) các bác nào đã làm qua vụ này chỉ giáo cho em với vì em gà mờ cả excel và access.
-
RE: Tùy biến chọn file Excel để Import vào Acces
Noname > 01-10-11, 07:51 AM
(02-01-11, 02:02 PM)heroic Đã viết: Bác Noname ơi có ví dụ nào nhập liệu từ 1 dòng dữ liệu cuối của data sheet excel (hoặc chọn được dòng thì càng tốt) vào các textbox nhập liệu của form access (bằng 1 Macro nút lệnh chọn file excel và dòng dữ liệu) các bác nào đã làm qua vụ này chỉ giáo cho em với vì em gà mờ cả excel và access.
Kể cả pro excel và access cũng chưa nghe nói tới! Về lý thuyết thì làm được, nhưng công sức bỏ ra quá nhiều so với thành quả thu được! -
RE: Tùy biến chọn file Excel để Import vào Acces
domfootwear > 01-10-11, 09:27 AM
(02-01-11, 02:02 PM)heroic Đã viết: Bác Noname ơi có ví dụ nào nhập liệu từ 1 dòng dữ liệu cuối của data sheet excel (hoặc chọn được dòng thì càng tốt) vào các textbox nhập liệu của form access (bằng 1 Macro nút lệnh chọn file excel và dòng dữ liệu) các bác nào đã làm qua vụ này chỉ giáo cho em với vì em gà mờ cả excel và access.
Nếu đơn thuần nhập dòng cuối cùng của file Excel ta có thể dùng Query đại loại như sau:
Mã PHP:Select Top 1 * from Table ....
Order by .... Desc;
Sau đó dùng kết quả này đưa vào bảng mong muốn.
Dù làm gì thì cũng phải có dữ liệu để test.
-
RE: Tùy biến chọn file Excel để Import vào Access
ducadi > 26-11-11, 01:29 AM
code ngan gon ma hieu qua, thanks chu thoi
-
RE: Tùy biến chọn file Excel để Import vào Access
xiketuan > 23-12-11, 10:30 PM
mình dùng theo cách này, khi mình gán 1 1 biến như:
txttentable =" T_sinhvien " thì nó không chèn trực tiếp vào table có sẵn mà lại ra 1 cái table khác giống nó ví dụ : Table trong access : T_sinhvien, khi thực hiện import thì nó lại sinh thêm Table : _T_Sinhvien và nó không import vào T_sinhvien???????? mình biết là có khoảng trắng nên thế, nhưng tại sao nó ko insert vào được table T_sinhvien nhỉ???mọi người giúp mình đi
tải file text -
RE: Tùy biến chọn file Excel để Import vào Access
Noname > 23-12-11, 11:22 PM
(23-12-11, 10:30 PM)xiketuan Đã viết: mình dùng theo cách này nhưng tại sao nó không chèn trực tiếp vào table có sẵn mà lại ra 1 cái table khác giống nó ví dụ : Table trong access : T_sinhvien, khi thực hiện import thì nó lại sinh thêm Table : _T_Sinhvien và nó không import vào T_sinhvien???????? mọi người giúp mình đi
Vì trong file Access của bạn đã tồn tại tên table đó! Bạn có 2 lựa chọn. 1 là bỏ table cũ đi, import table mới. 2 là dùng code append table mới vào table cũ. -
RE: Tùy biến chọn file Excel để Import vào Access
nvk_hy > 27-12-11, 05:26 PM
bác "Noname" ơi có cách nào để mở một file excel bất kỳ, có tên sheet bất kỳ(ý là không phải nhập tên sheet vào txtRange không?
hãy giúp đỡ tôi với