VBA - xuất ra file pdf

Liên hệ QC
G

giangintem

Thành viên mới
Tham gia
19/4/11
Bài viết
22
Được thích
4
Kính gửi các Anh/Chị

Mình mới tìm hiểu về vba, mình đang làm xuất phiếu lương ra file pdf nhưng khi xuất ra file pdf thì không đọc được. xin chỉ ra lỗi sai và hoàn thiện đoạn code. Cám ơn cả nhà
 

File đính kèm

  • Luong24.12.xlsm
    19.7 KB · Đọc: 25
Sắp xếp theo thời gian sắp xếp theo bầu chọn
giangintem đã viết:
Kính gửi các Anh/Chị

Mình mới tìm hiểu về vba, mình đang làm xuất phiếu lương ra file pdf nhưng khi xuất ra file pdf thì không đọc được. xin chỉ ra lỗi sai và hoàn thiện đoạn code. Cám ơn cả nhà
Nhấp chuột vào đây để mở rộng...
Trong file bạn có cái code nào tạo file pdf đâu mà chỉ ra chỗ sai?
 
Upvote 0
Trong file có đó bạn, đoạn code như sau:

Sub taods()
Dim i As Integer

Application.DisplayAlerts = False
Application.ScreenUpdating = False

i = 5

With ThisWorkbook.Sheets("Data")
While (.Cells(i, 3) <> "")

ThisWorkbook.Sheets("Form").Cells(3, 5) = .Cells(i, 3)

ThisWorkbook.Sheets("Form").Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Danh Sach\" & .Cells(i, 3) & "_" & .Cells(i, 4) & ".pdf"
ActiveWorkbook.Close

i = i + 1
Wend

End With

MsgBox "!!!Hoan Thanh!!!"

Application.ScreenUpdating = True
Application.ScreenUpdating = True


End Sub
 
Upvote 0
giangintem đã viết:
Trong file có đó bạn, đoạn code như sau:

Sub taods()
Dim i As Integer

Application.DisplayAlerts = False
Application.ScreenUpdating = False

i = 5

With ThisWorkbook.Sheets("Data")
While (.Cells(i, 3) <> "")

ThisWorkbook.Sheets("Form").Cells(3, 5) = .Cells(i, 3)

ThisWorkbook.Sheets("Form").Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Danh Sach\" & .Cells(i, 3) & "_" & .Cells(i, 4) & ".xlsx", Password:=.Cells(i, 13)
ActiveWorkbook.Close

i = i + 1
Wend

End With

MsgBox "!!!Hoan Thanh!!!"

Application.ScreenUpdating = True
Application.ScreenUpdating = True


End Sub
Nhấp chuột vào đây để mở rộng...
Tôi chép code trong file ra cho bạn thấy. Bạn tải về xem lại file đi, xem tôi có nói sai không?

Sub taods()
Dim i As Integer

'Bo qua canh bao va nhap nhay khi chay chuong trinh
Application.DisplayAlerts = False
Application.ScreenUpdating = False

'Gán gia tri dau tien
i = 5

'Quét tung nhan vien 1
With ThisWorkbook.Sheets("Data")
While (.Cells(i, 3) <> "")
'Gán ma cho tung nhan vien
ThisWorkbook.Sheets("Form").Cells(3, 5) = .Cells(i, 3)

'Trich xuat shhet Form ra file moi
ThisWorkbook.Sheets("Form").Copy

'Luu file sau khi xuat vao folder danh sach va dat pass
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Danh Sach\" & .Cells(i, 3) & "_" & .Cells(i, 4) & ".xlsx", Password:=.Cells(i, 13)
ActiveWorkbook.Close

i = i + 1
Wend

End With

'Hien thong bao ket thuc chuong trinh
MsgBox "!!!Hoan Thanh!!!"

Application.ScreenUpdating = True
Application.ScreenUpdating = True


End Sub
 
Upvote 0
giangintem đã viết:
Kính gửi các Anh/Chị

Mình mới tìm hiểu về vba, mình đang làm xuất phiếu lương ra file pdf nhưng khi xuất ra file pdf thì không đọc được. xin chỉ ra lỗi sai và hoàn thiện đoạn code. Cám ơn cả nhà
Nhấp chuột vào đây để mở rộng...
Gửi bạn đoạn code xuất file PDF
Mã: 
Sub XuatPDF()
Dim Code$
Code = Sheets("Form").Range("E3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & Code & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
 

File đính kèm

  • Luong24.12.xlsm
    31.1 KB · Đọc: 29
Upvote 0
Đúng rồi, mình quên sửa lại. Mình đã sửa lại đoạn code nhưng vẫn không chạy được. Nhờ Bạn sửa lại. Cám ơn nhiều
 

File đính kèm

  • Luong24.12.xlsm
    16.6 KB · Đọc: 15
Upvote 0
giangintem đã viết:
Trong file có đó bạn, đoạn code như sau:

Sub taods()
Dim i As Integer

Application.DisplayAlerts = False
Application.ScreenUpdating = False

i = 5

With ThisWorkbook.Sheets("Data")
While (.Cells(i, 3) <> "")

ThisWorkbook.Sheets("Form").Cells(3, 5) = .Cells(i, 3)

ThisWorkbook.Sheets("Form").Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Danh Sach\" & .Cells(i, 3) & "_" & .Cells(i, 4) & ".pdf"
ActiveWorkbook.Close

i = i + 1
Wend

End With

MsgBox "!!!Hoan Thanh!!!"

Application.ScreenUpdating = True
Application.ScreenUpdating = True


End Sub
Nhấp chuột vào đây để mở rộng...
Bạn chạy thử code.
Bài đã được tự động gộp:

giangintem đã viết:
Đúng rồi, mình quên sửa lại. Mình đã sửa lại đoạn code nhưng vẫn không chạy được. Nhờ Bạn sửa lại. Cám ơn nhiều
Nhấp chuột vào đây để mở rộng...
Bạn chạy file kèm ở bài này nhé
 

File đính kèm

  • Luong24.12_giangintem.xlsm
    21.4 KB · Đọc: 31
Lần chỉnh sửa cuối:
Upvote 0
Bạn ơi, mình sử dụng file của Bạn được nhưng khi áp vào file thực tế cứ báo lỗi hoài, xem lại giúp mình, cám ơn Bạn nhiều nhé
1608874698438.png
 

File đính kèm

  • C.Luong T12.xlsm
    580 KB · Đọc: 15
Upvote 0
Upvote 0
giangintem đã viết:
Cám ơn Bạn nhiều :):):)
Nhấp chuột vào đây để mở rộng...
Bạn vào code của This Workbook vô hiệu hóa sự kiện Before_Print đi. Tôi không biết lý do và ai đặt sự kiện này để làm gì nhưng nó là lý do gây lỗi.

Hoặc bạn tải file này về. Tôi đã vô hiệu nó rồi.
 

File đính kèm

  • C.Luong T12_giangintem.xlsm
    579.8 KB · Đọc: 27
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

B
Định dạng condition formatting, đếm hỗn hợp dữ liệu merge và không merge
Trả lời
8
Đọc
127
batista911
B
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
2
Đọc
76
Ny Ny 2024
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
246
Đọc
13K
trannguyen197
T
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
28
Đọc
635
Tuấn Bụng Bự
Tuấn Bụng Bự
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
9
Đọc
257
ptm0412
ptm0412
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
14
Đọc
278
ptm0412
ptm0412
T
Tối ưu hóa hàm lấy dữ liệu từ bảng Tổng sang bảng chi tiết
Trả lời
7
Đọc
220
Hoàng Tuấn 868
H
nguyenphuochien166
Cách Vlookup hoặc cách lấy thông tin dữ liệu có dấu mũ lũy thừa?
    • Cười
Trả lời
6
Đọc
110
tigertiger
tigertiger
T
Không đếm dữ liệu rỗng trong PivotTable
Trả lời
8
Đọc
1K
hoangtuaotrang_hp_vn
H
B
Lọc dữ liệu trùng, đếm số lần, tự tô màu theo điều kiện.
Trả lời
3
Đọc
116
batista911
B
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
1
Đọc
95
hoangtuaotrang_hp_vn
H
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
5
Đọc
161
kimtanmap
kimtanmap
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
1
Đọc
82
hoangtuaotrang_hp_vn
H
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
0
Đọc
55
huynhnhu1234
huynhnhu1234
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
7
Đọc
133
tranvansau278
T
N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
6
Đọc
125
Nguyễn Linh hn94
N
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
4
Đọc
166
zarra
zarra
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Cảm ơn
    • Thích
Trả lời
5
Đọc
296
anhdepjai
A
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
17
Đọc
20K
DeTong
D
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom