Re: save ไฟล์ backup
Posted: Fri Aug 20, 2021 4:54 pm
ถามเพิ่มเติมครับ..
- ต้องการ clear filter ก่อน save ไฟล์ครับ และ hide row ไว้เหมือนเดิม
ลองเพิ่ม code แล้วแต่ปัญหาคือ row ที่ hide ไว้กลับ unhide ออกมาด้วย
clear filter:
code ที่เพิ่มแล้ว :
- ต้องการ clear filter ก่อน save ไฟล์ครับ และ hide row ไว้เหมือนเดิม
ลองเพิ่ม code แล้วแต่ปัญหาคือ row ที่ hide ไว้กลับ unhide ออกมาด้วย
clear filter:
Code: Select all
For Each wks In Worksheets
If wks.FilterMode = True Then
wks.ShowAllData
End If
Next wks
Code: Select all
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet, SaveToDirectory As String
For Each wks In Worksheets
If wks.FilterMode = True Then
wks.ShowAllData
End If
Next wks
SaveToDirectory = "D:\Server Backup\import-mysql\Bill\"
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("MT").Copy
With ActiveWorkbook
.Sheets("MT").Range("a1:a2").EntireRow.Delete shift:=xlUp
.SaveAs Filename:=SaveToDirectory & .Sheets("MT").Name & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
.Close SaveChanges:=True
End With
Application.DisplayAlerts = True
End Sub