em muốn xuất 1 sheet trong file ra 1 file excel mới có tên và theo đường dẫn

Thầy ơi em muốn xuất 1 sheet trong file ra 1 file excel mới có tên và theo đường dẫn, sử dụng code sau báo lỗi. Thầy xem giúp em lỗi ở đâu với ạ

Sub xuatFile()

' Xuat File sau khi da an cac hang trong

Dim i As Integer

Rows("18:210").EntireRow.Hidden = False

For i = 18 To 210
If ActiveSheet.Cells(i, 4).Value = "" Then
ActiveSheet.Cells(i, 4).EntireRow.Hidden = True
End If
Next i

ActiveSheet.ExportAsFixedFormat Type:=51, Filename:=Range("O2").Value & "" & Range("O1").Value

Báo lỗi ở dòng cuối ạ, với trong sheet đấy có chứa macro nhưng sau cùng em sẽ chuyển hết và giá trị thì nên để lệnh là lưu theo file XLSX hay XLSM ạ?

1 câu trả lời

167 lượt xem

vỗ tay

Nguyễn Thuỳ Dương 09:04 - Apr 24, 2021

Chào bạn bạn có thể đẩy file nên cho gitiho được không?

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

em muốn xuất 1 sheet trong file ra 1 file excel mới có tên và theo đường dẫn

Câu hỏi liên quan