-
RE: Export Table từ access sang 1 file word có sẵn!
changkhoonline77 > 24-05-13, 11:25 AM
Mình làm được lưu file tên file word rồi
thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn -
RE: Export Table từ access sang 1 file word có sẵn!
domfootwear > 24-05-13, 04:25 PM
(24-05-13, 11:25 AM)changkhoonline77 Đã viết: Mình làm được lưu file tên file word rồi
thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn
Mình nghĩ thay đoạn trên = đoạn như sau
Mã PHP:oApp.ActiveDocument.Save
-
RE: Export Table từ access sang 1 file word có sẵn!
changkhoonline77 > 24-05-13, 07:53 PM
(24-05-13, 04:25 PM)domfootwear Đã viết:
(24-05-13, 11:25 AM)changkhoonline77 Đã viết: Mình làm được lưu file tên file word rồi
thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn
Mình nghĩ thay đoạn trên = đoạn như sau
Mã PHP:oApp.ActiveDocument.Save
Không được bạn ơi
Mình làm như thế này oApp.ActiveDocument.SaveAs FileName:=txt0
thì mặc định nó lưu ở Documents đối với Win8
Không biết hàm strPath có làm được không nữa -
RE: Export Table từ access sang 1 file word có sẵn!
chatchut > 04-07-13, 09:47 AM
Cho em hỏi với, sao chương trình bây giờ lại ra kết quả:
Cộng hòa xã hội …
Ví dụ: {FORMTEXT}
Chúc bạn thành công!
Domfootwear
mà nó không ra dữ liệu đã nhập vào -
RE: Export Table từ access sang 1 file word có sẵn!
paulsteigel > 04-07-13, 03:49 PM
Xin được chia sẻ với các bạn một cách làm để tránh gây những phiền toái của việc tạo ra quá nhiều phiên làm việc của Word.
Khi cần tương tác với chương trình ngoài, đa số chúng ta đều cố gắng tạo ra một phiên làm việc mới. Việc này đôi khi cũng phiền lắm. Tôi thì hay sử dụng biện pháp, xem có phiên làm việc nào chưa, nếu có rồi, thì thôi không tạo nữa mà kết nối luôn với nó và thực hiện luôn các việc cần làm!
Bạn có thể ứng dụng vào tình huống của mìnhMã PHP:Sub AttachToWord()
'Muc dich: Co gang thiet lap ket noi voi mot phien lam viec cua Word neu duoc. Neu khong thi tao moi
Dim wrdApp As Object
Dim wrdApp As Object
'Co gang tao ket noi
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Khong tao duoc ketnoi
Err.Clear
On Error GoTo ErrHandler
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Else
'Ket noi thanh cong, thuc hien cac lenh tiep theo va kich hoat bay loi
On Error GoTo ErrHandler
End If
' Doan code chinh...
Set wrdApp = wrdApp.Documents.Add
' Them mot doan van ban
wrdApp.Paragraphs.Add
' Viet noi dung cho doan
wrdApp.Paragraphs(1) = "'Release the object and resume normal error handling"
ErrHandler:
'Giai phong cac bien va dua che do bay loi ve binh thuong
Set wrdApp = Nothing
Set wrdApp = Nothing
On Error GoTo 0
End Sub -
RE: Export Table từ access sang 1 file word có sẵn!
chatchut > 04-07-13, 05:56 PM
(04-07-13, 03:49 PM)paulsteigel Đã viết: Xin được chia sẻ với các bạn một cách làm để tránh gây những phiền toái của việc tạo ra quá nhiều phiên làm việc của Word.
Khi cần tương tác với chương trình ngoài, đa số chúng ta đều cố gắng tạo ra một phiên làm việc mới. Việc này đôi khi cũng phiền lắm. Tôi thì hay sử dụng biện pháp, xem có phiên làm việc nào chưa, nếu có rồi, thì thôi không tạo nữa mà kết nối luôn với nó và thực hiện luôn các việc cần làm!
Bạn có thể ứng dụng vào tình huống của mìnhMã PHP:Sub AttachToWord()
'Muc dich: Co gang thiet lap ket noi voi mot phien lam viec cua Word neu duoc. Neu khong thi tao moi
Dim wrdApp As Object
Dim wrdApp As Object
'Co gang tao ket noi
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Khong tao duoc ketnoi
Err.Clear
On Error GoTo ErrHandler
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Else
'Ket noi thanh cong, thuc hien cac lenh tiep theo va kich hoat bay loi
On Error GoTo ErrHandler
End If
' Doan code chinh...
Set wrdApp = wrdApp.Documents.Add
' Them mot doan van ban
wrdApp.Paragraphs.Add
' Viet noi dung cho doan
wrdApp.Paragraphs(1) = "'Release the object and resume normal error handling"
ErrHandler:
'Giai phong cac bien va dua che do bay loi ve binh thuong
Set wrdApp = Nothing
Set wrdApp = Nothing
On Error GoTo 0
End Sub
Em chưa hiểu lắm cách làm này. Em chỉ hỏi lúc trước thì làm được bây giờ in ra lấy có dòng chử {formtext}
Xin cám ơn nhiều -
RE: Export Table từ access sang 1 file word có sẵn!
paulsteigel > 05-07-13, 09:49 AM
(04-07-13, 05:56 PM)chatchut Đã viết: Em chưa hiểu lắm cách làm này. Em chỉ hỏi lúc trước thì làm được bây giờ in ra lấy có dòng chử {formtext}
Đấy là tên trường dữ liệu trong file word của bạn, bạn cần nhấn phải chuột, chọn Toggle Field Code là được.
Xin cám ơn nhiều
Quay lại chủ đề xuất dữ liệu ra word, người ta có thể dùng nhiều cách; Cách bạn theo đuổi trong chủ đề này là thiết lập sẵn vài trường dữ liệu trong 1 tài liệu word sau đó ghi dữ liệu vào trường đó. Thông thường người ta dùng trường dữ liệu trong word khi đòi hỏi có sự tương tác với người dùng và cần thu thập trở lại dữ liệu.
Nếu chỉ muốn xuất 1 chiều thì nhiều người hay dùng cách thứ 2 là đặt các thông tin cần thay đổi số liệu bằng các từ khóa sao cho ít có khả năng trùng dữ liệu rồi dùng công cụ tìm và thay thế.
Chẳng hạn, trong tài liệu word, ta đặt các đoạn dữ liệu [FIELD:CONTRACTNUMBER] hoặc [FIELD:REPNAME]
Sau đó khi lấy dữ liệu từ Access, chỉ cần dùng lệnh thay thế [FIELD:CONTRACTNUMBER] bằng Số hợp đồng trong Access.
Cách thứ 3 là soạn thẳng tài liệu word từ Access hoặc Excel.
Bạn xem thử file này tôi viết để tổng hợp kế hoạch phát triển KTXH của xã nhé. Tải về, cài rồi nhấn nút tạo dự thảo kế hoạch - Excel sẽ tạo ra 1 tài liệu Word.
http://www.sfdp.net/sedp/nmprp2/kh2014/S...ects=0&d=1
Hoặc bạn có thể xem qua file này nhé - sử dụng cách tiếp cận thứ 2....
http://www.sfdp.net/thuthuataccess/thuth...ects=0&d=1 -
RE: Export Table từ access sang 1 file word có sẵn!
chatchut > 05-07-13, 03:03 PM
cám ơn paulsteigel đã quan tâm đến vấn đề của mình
mình đã chỉnh lại được rồi, chủ yếu lỗi là do word
Chúc mọi người cuối tuần vui vẻ -
RE: Export Table từ access sang 1 file word có sẵn!
nct1972 > 16-07-13, 08:03 PM
Chào các anh chị!
Các anh chi cho em hỏi một thủ thuât này ạ:
- Quản lý các hợp đồng mua bán thì cần in ấn hợp đồng như cần in bên A, bên B theo database và bên đưới có một table các trường cùng dữ liệu hàng hóa thí có cách nào xuất ra file word có sẳn các thông tin như trên lấy ra từ database được không ạ (cách lấy thông tin trong database thì OK rồi nhưng phần thể hiện lên File Word thất là khó)
Chân thành cảm ơn nhiều thật nhiều! -
RE: Export Table từ access sang 1 file word có sẵn!
paulsteigel > 16-07-13, 10:34 PM
Tớ có vài bài về vấn đề này ở bên webketoan.vn hoặc giaiphapexcel.com. Bạn có thể tải về ví dụ ở dưới đây để biết cách xuất sang Word nhé.
http://www.sfdp.net/tai-lieu-khac/taptin...bangaccess
Hope this helps!