Xuất file hàng loạt ra excel

[DungMD]

Hiện tại tôi có code này xuất hàng loạt ra PDF, tuy nhiên muốn thay đổi bằng cách xuất ra file excel thì làm thế nào, các bác giúp giùm tôi

Option Explicit

Private WithEvents AI As BSAdvancedInput 'Class in addtoool'

Private Sub AI_OnGetValue(ByVal Target As Object, ByVal ArrayValues As Variant)
Dim i As Long, Sh As Worksheet, TenfilePDF As String
Set Sh = Target.Parent

For i = LBound(ArrayValues, 1) To UBound(ArrayValues, 1)

Target.Value = ArrayValues(i, 0)
TenfilePDF = "D:\PDF\" & ArrayValues(i, 0) & ".PDF"
Sh.ExportAsFixedFormat xlTypePDF, TenfilePDF
Next i

End Sub

Private Sub worksheet_activate()
Set AI = Nothing
Set AI = New BSAdvancedInput 'insst'


End Sub

Private Sub Worksheet_Deactivate()
Set AI = Nothing
End Sub

 

[Mutants Men]

Hiện tại tôi có code này xuất hàng loạt ra PDF, tuy nhiên muốn thay đổi bằng cách xuất ra file excel thì làm thế nào, các bác giúp giùm tôi

theo cách củ chuối của tui thì thế này
B1: Code sẽ tự động chọn những Sheet cần xuất
B2: dùng chức năng copy Sheet được chọn sang sổ làm việc mới
B3: cần thiết thì copy dán toàn bộ giá trị lại nếu có công thức để không còn dính liên kết với file cũ
B4: xóa name nếu cần
B5: lưu file lại theo đường dẫn của bạn
B6: đóng file
Bước làm là thế. còn code bạn có thể ghi macro rồi thao tác từng bước như trên

 

[koikio]

Private Sub btnIn_Click()
Dim i As Integer
For i = txtR1.Text To txtR2.Text
Range("N2").Value = i
ActiveSheet.PrintOut from:=txtP1.Text, To:=txtP2.Text, preview:=False
Next
End Sub

Hiện tại mình có đoạn code này in hàng loạt nhưng chỉ in được 1 mặt, giờ muốn in 2 mặt thì sửa code như nào vậy mọi người. xin cám ơn và đa tạ