Chả là em làm code xuất File mới từ Workbook đang làm việc (Lấy 1 sheet trong WB). Nhưng Folder của em nó tên tiếng Việt nên nó báo lỗi này. Đọc khắp mạng mà không có cách khắc phục. Không biết có bạn nào biết không ạ, hay bắt buộc phải đặt tên Folder không dấu.

Sửa lần cuối: 5/8/21

• 2

  Em chào các anh chị và các bạn, Em muốn hỏi lỗi Path/File access error có cách gì khắc phục không ạ.

đưa file lỗi lên! hoặc code!

• 3

  đưa file lỗi lên! hoặc code!

Xuất File mới có tên là So_ban_hang.xlsx từ sheet Ban_hang_KV của File đang làm việc và đặt trong thư mục có dấu tiếng việt.

Sub Xuat_File_moi Dim DesktopPath1 As String, MyPath As String Dim Fso As Object DesktopPath1 = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" Set Fso = CreateObject("Scripting.FileSystemObject") MyPath = ThisWorkbook.Path & "\" With Application .ScreenUpdating = False .DisplayAlerts = False Worksheets("Ban_hang_KV").Copy ActiveSheet.Name = "Ban_hang" ActiveWorkbook.Close True, MyPath & "So_ban_hang.xlsx" .ScreenUpdating = True .DisplayAlerts = True End With

End Sub

• 4

  Xuất File mới có tên là So_ban_hang.xlsx từ sheet Ban_hang_KV của File đang làm việc và đặt trong thư mục có dấu tiếng việt.

Sub Xuat_File_moi Dim DesktopPath1 As String, MyPath As String Dim Fso As Object DesktopPath1 = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" Set Fso = CreateObject("Scripting.FileSystemObject") MyPath = ThisWorkbook.Path & "\" With Application .ScreenUpdating = False .DisplayAlerts = False Worksheets("Ban_hang_KV").Copy ActiveSheet.Name = "Ban_hang" ActiveWorkbook.Close True, MyPath & "So_ban_hang.xlsx" .ScreenUpdating = True .DisplayAlerts = True End With

Thử code này!

Sub btnbaocaocathang_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
            Dim thiswb As Workbook
            Dim wb As Workbook
            Dim MyPath As String
            MyPath = ThisWorkbook.Path
            Set thiswb = ThisWorkbook
            thiswb.Sheets("Ban_hang_KV").Copy
            ActiveWorkbook.SaveAs Filename:=MyPath & "\So_ban_hang.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            Set wb = Workbooks.Open(MyPath & "\So_ban_hang.xlsx")
            wb.Sheets("Ban_hang_KV").Name = "Ban_hang"
            'wb.Close savechanges:=True ' them dong nay de luu dong wb luon
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

• 5

  Em chào các anh chị và các bạn, Em muốn hỏi lỗi Path/File access error có cách gì khắc phục không ạ.

Khi đường dẫn là tiếng việt thì rất hay bị lỗi ấy. Theo mình phỏng đoán thì đó cũng là 1 trong những nguyên nhân. Bạn thử với đường dẫn tiếng việt không dấu coi. Hoặc có thể trong file nhiều name rác

• 6

Tất cả thành viên không giúp đỡ thành viên này. Topic người ta giúp còn chưa trả lời hay cám ơn.

Bạn cần đăng nhập để thấy link

Viết bài thì không dùng thẻ code.

Ai giúp đỡ thành viên này, tôi ban nick ráng chịu.

• 7

Khi đường dẫn là tiếng việt thì rất hay bị lỗi ấy. Theo mình phỏng đoán thì đó cũng là 1 trong những nguyên nhân. Bạn thử với đường dẫn tiếng việt không dấu coi. Hoặc có thể trong file nhiều name rác