Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xuất từ Access ra excel mà không cần phải có file định sẵn
#1
Mọi người giúp hộ xem có cách nào xuất từ Access ra excel mà không cần có file định sẵn bằng lệnh không
Ví dụ: có table access là "hochanh" mình muốn xuất ra excel có tên là HOCHANH_date()

Như Ongke0711 làm cho mình về report 

Private Sub In_Click()
Dim myPath  As String
Dim strReportName 
As String

DoCmd
.OpenReport "Baocaonam"acViewPreview

myPath 
"C:\Documents and Settings\"
strReportName = "
Baocaonam_" & Format(Date(),"ddmmyyyy") & ".pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath & strReportName, True
DoCmd.Close acReport, "
Baocaonam"

End Sub 
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
Reply
Những người đã cảm ơn
#2
(17-09-16, 07:55 PM)trungminh Đã viết: Mọi người giúp hộ xem có cách nào xuất từ Access ra excel mà không cần có file định sẵn bằng lệnh không
Ví dụ: có table access là "hochanh" mình muốn xuất ra excel có tên là HOCHANH_date()

Có nhiều cách:

Từ cửa sổ Database, chọn table hoặc query. Vào menu Tools - Office Links - chọn Analyze It With MS Excel.

Từ Code VBA: dùng docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"tablename","Excelfilename",True/False
Trong đó nếu True thì khi export ra, nó cho dòng đầu là tên của các field.

Rồi lưu lại bằng tên nào bạn muốn Ctrl+S
Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy
#3
(17-09-16, 08:45 PM)maidinhdan Đã viết:
(17-09-16, 07:55 PM)trungminh Đã viết: Mọi người giúp hộ xem có cách nào xuất từ Access ra excel mà không cần có file định sẵn bằng lệnh không
Ví dụ: có table access là "hochanh" mình muốn xuất ra excel có tên là HOCHANH_date()

Có nhiều cách:

Từ cửa sổ Database, chọn table hoặc query. Vào menu Tools - Office Links - chọn Analyze It With MS Excel.

Từ Code VBA: dùng docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"tablename","Excelfilename",True/False
Trong đó nếu True thì khi export ra, nó cho dòng đầu là tên của các field.

Rồi lưu lại bằng tên nào bạn muốn Ctrl+S
Thân mến!

Private Sub XUAT_Click()
Dim db As DAO.Database, rs As DAO.Recordset, mySQL As String
Dim oApp As New Excel.Application, oBook As Excel.Workbook, oSheet As Excel.Worksheet
    Set oBook = oApp.Workbooks.Open(CurrentProject.Path & "\TUVONG.xlt")
    mySQL = "select * from TUVONG"
        Set oSheet = oBook.Sheets("TUVONG")
    Set db = CurrentDb
    Set rs = db.OpenRecordset(mySQL, dbOpenSnapshot)
    oSheet.Range("A2").CopyFromRecordset rs
        
        With oBook.Sheets("TUVONG")
        With .Range("A2:A" & .Range("B65000").End(xlUp).Row)
            .FormulaR1C1 = "=ROW()-1"
            .Value = .Value
            'Dinh dang File Ex
    n = .Range("A65000").End(xlUp).Row
    .Range("A" & k + 1 & ":B" & n).HorizontalAlignment = xlCenter
    With .Range("A" & k + 1 & ":L" & n)
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        If n > k + 1 Then .Borders(xlInsideHorizontal).LineStyle = xlDot
    End With
        End With
    End With
           
           rs.Close
    oApp.Visible = True
    oApp.UserControl = True
    db.Close
End Sub

Đoạn code này đã chạy tốt nhưng phải có file mặc định
Bạn có thể sửa đoạn code này để khi xuất nó tự đông ghi thành file luôn và mở ra không phải ghi lại nữa

cảm ơn nhiều
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
Reply
Những người đã cảm ơn
#4
(17-09-16, 10:00 PM)trungminh Đã viết: .................
Đoạn code này đã chạy tốt nhưng phải có file mặc định
Bạn có thể sửa đoạn code này để khi xuất nó tự đông ghi thành file luôn và mở ra không phải ghi lại nữa

cảm ơn nhiều

Chưa hiểu ý bạn nói: "nó tự đông ghi thành file luôn và mở ra "

Lý do: Ở đoạn code thứ 2 tôi hướng dẫn bạn đã đáp ứng đều bạn muốn:

Từ Code VBA dùng:
Mã PHP:
Docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,"tablename","Excelfilename",True/False 

Trong đó:
+ tablename: là tên table cần xuất
+ Excelfilename: là tên file Excel bạn muốn đặt

Bạn làm việc gì cũng nên hỏi một cách chi tiết và tốt nhất là minh họa kết quả của bạn muốn.

Vui lòng lên trên xem lại.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , trungminh


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,323 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 188 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,795 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,862 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,212 19-09-16, 04:16 PM
Bài mới nhất: maidinhdan

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ơ