Cảm ơn ban The Wind nhiều mình làm theo cách của bạn được rùi.

(04-10-10, 11:44 AM)The Wind Đã viết: Có một cách để bạn không cần phải sử dụng điều kiện đặt lọc ở query mà vẫn xuất ra được excel với các record bạn tìm được trong formsub bằng bắt cứ thao tác nào ( hộp search, lọc...) với đoạn mã

Mã:

FileCopy "D:\NS\Now\Temps4Export\temps.xls", "C:\output.xls" 'Su dung temps.xls nhu 1 mau excel co san
Me.fr_sub.SetFocus ' fr_sub: name cua form sub
DoCmd.GoToControl "ID" 'ID: Khoa cua formsub
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
'Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.Open ("C:\output.xls")
'.Workbooks.Add 'Neukhong su dung may temps xls
'.Range("a4").Select
.Range("a4").PasteSpecial Paste:=xlPasteValues
'_Link:=False, DisplayAsIcon:=False
.Cells.Select
'.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a5").Select
End With

Mình hay dùng phương pháp này hơn vì rất thoải máy trong việc xuất ra xls, có thể sử dụng mẫu temp xls và không bị ràng buộc vào truy vấn query như các của noname!

Hi các bạn
Cho mình hỏi chút trong trường hợp mình không muốn export cột tiêu đề mà chỉ lấy giá trị và chỉ export từng giá trị vào các cell chỉ định trong file excel có sẵn thì có làm được không ?
Theo cách của bạn The Wind là export cả tiêu đề và nguyên cả hàng rồi

Cám ơn mọi người

(09-08-10, 01:34 AM)Noname Đã viết: Không phải mọi thứ Access đều có thể giúp được bạn, đôi khi phải vận dụng linh hoạt với Excel.
Câu lệnh Export một đối tượng Access ra Excel

Mã:

DoCmd.OutputTo Kiểu đối tượng, "tên đối tượng", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Ví dụ bạn đẩy một query tên là DThutheothang ra excel:

DoCmd.OutputTo acQuery, "DThutheothang", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Hoặc là:

Mã:

DoCmd.TransferSpreadsheet acExport, 8, "qryA", "c:\A.xls", False, ""

Trong trường hợp Export ra excel bị lỗi font Unicode. Bạn có thể tạo 1 macro với Action OutputTo

cách nhập câu lệnh này như thế nào hả anh? nhập vào đâu? chỉ cho em với

(05-10-10, 08:35 AM)The Wind Đã viết: Hôm qua kiểm tra cái demo ở máy 2003 rồi, chạy ngon lành, nhưng cái xls làm mẫu thì bị lỗi do tạo = excel 2007. sửa lại cái xls cùng thư mục = các khác là được.

Mình đã thử chạy rồi ! Thanks bạn nhiều !

(09-08-10, 01:34 AM)Noname Đã viết: Không phải mọi thứ Access đều có thể giúp được bạn, đôi khi phải vận dụng linh hoạt với Excel.
Câu lệnh Export một đối tượng Access ra Excel

Mã:

DoCmd.OutputTo Kiểu đối tượng, "tên đối tượng", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Ví dụ bạn đẩy một query tên là DThutheothang ra excel:

DoCmd.OutputTo acQuery, "DThutheothang", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Hoặc là:

Mã:

DoCmd.TransferSpreadsheet acExport, 8, "qryA", "c:\A.xls", False, ""

Trong trường hợp Export ra excel bị lỗi font Unicode. Bạn có thể tạo 1 macro với Action OutputTo

Cám ơn anh Noname, khi em dùng thử đoạn code trên để xuất query, mặc dù em đã thiết lập là "True" để tự động mở file excel sau khi export và đã chọn Microsoft Excel xx library, nhưng máy lại báo lỗi đại ý là "Không mở được OLE server". Nếu để "false" thì ok, nhưng lại mất công tìm đến ổ đĩa chứa file để mở.
Mong anh giải đáp

Với cấu trúc của bạn TheWin có thể điểu chỉnh cho các bạn sử dụng Office 2007

Private Sub xuat_Click()
On Error GoTo xuat_click_err

Me.kehoachmayinsub.SetFocus ' fr_sub: tenformsub
DoCmd.GoToControl "sophieu" 'ID: Khoa cua formsub
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
'Dim xlbook As Excel.Workbook 'ap dung cho excel 2007
'Dim Xlsheet As Excel.Worksheet

Dim text As String
text = UniConvert("Khoong tifm thaasy file. Haxy tajo file cos teen 'kehoachmayin' trong thuw mujc chuwsa file chuwowng trifnh quarn lys sarn xuaast.", "telex")

Set xlapp = CreateObject("Excel.Application")
'Set xlbook = GetObject("Excel.Workbook")
'Set Xlsheet = xlbook.Worksheets


With xlapp
.Workbooks.Open (Application.CurrentProject.path + "\kehoachmayin.xls") ' Su dung neu dung Excel 2003
'.Workbooks.Open(Application.CurrentProject.path + "\kehoachmayin.xlsx") ' Su dung neu dung excel 2007
.Range("a4").Select
.Range("a4").PasteSpecial Paste:=xlPasteValues
'_Link:=False, DisplayAsIcon:=False
.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a4").Select
End With
xuat_click_exit:
Exit Sub
xuat_click_err:

MsgBox text, vbInformation

Resume xuat_click_exit
End Sub

Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Trong access 2003 đâu có, mình làm báo lỗi, pro nào làm chạy trên access 2003 giúp đỡ với.

(21-01-15, 03:22 PM)dinhnhieu Đã viết: Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Trong access 2003 đâu có, mình làm báo lỗi, pro nào làm chạy trên access 2003 giúp đỡ với.

Bạn đã gọi trình thư viện excel trong cửa sổ VBA chưa?