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
End SubThử 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