export file excel bằng VBA bị lỗi

[phan van tai]

các cao nhân giúp em với, em có thiết kế 1 userform để nhập kết quả đo, và xuất ra file csv. Nhưng chỉ xuất file được 1 lần, lần tiếp theo báo lỗi. Muốn làm tiếp thì phải đóng và mở lại => cho nên em viết code xuất file đồng thời close file, rồi phải mở lại bằng tay
cty em dùng onedrive lưu trữ dữ liệu, không pit link có bị ảnh huởng gì hay ko
=> các cao nhân giúp em với ạk

 

[ngocbaovu]

Bạn không đưa file đính kèm thì có thánh giúp được

 

[phan van tai]

file đình

Bạn không đưa file đính kèm thì có thánh giúp được

mình có đính kèm rồi ạk

 

[ngocbaovu]

Mình đã xem file và thấy lỗi là khi bạn add workbook mà không đặt tên thì mặc định excel sẽ thêm là book1. Đến lần chạy thứ 2 thì sẽ là book2. Vậy nên đoạn code Windows("Book1").Activate sẽ không thực thi được. Vậy nên bạn phải đóng hoàn toàn rồi mở lại.
Bạn chỉnh lại code ở Button "Xuất kết quả" thành"
' XUAT KET QUA DO RA FILE IDOS
Dim duongdan As String
duongdan = "C:\Users\Admin\Documents"

Sheets("IDOS file").Select
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\Admin\Documents\Book1.xls"
Windows("Symmetry data.xlsm").Activate
Sheets("IDOS file").Select
Range("A15").Select
Selection.Copy
Windows("Book1.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
...

 

[phan van tai]

Mình đã xem file và thấy lỗi là khi bạn add workbook mà không đặt tên thì mặc định excel sẽ thêm là book1. Đến lần chạy thứ 2 thì sẽ là book2. Vậy nên đoạn code Windows("Book1").Activate sẽ không thực thi được. Vậy nên bạn phải đóng hoàn toàn rồi mở lại.
Bạn chỉnh lại code ở Button "Xuất kết quả" thành"
' XUAT KET QUA DO RA FILE IDOS
Dim duongdan As String
duongdan = "C:\Users\Admin\Documents"

Sheets("IDOS file").Select
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\Admin\Documents\Book1.xls"
Windows("Symmetry data.xlsm").Activate
Sheets("IDOS file").Select
Range("A15").Select
Selection.Copy
Windows("Book1.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
...

cám ơn bạn nhiều nhiều nha

Bài đã được tự động gộp: 10/9/22

Mình đã xem file và thấy lỗi là khi bạn add workbook mà không đặt tên thì mặc định excel sẽ thêm là book1. Đến lần chạy thứ 2 thì sẽ là book2. Vậy nên đoạn code Windows("Book1").Activate sẽ không thực thi được. Vậy nên bạn phải đóng hoàn toàn rồi mở lại.
Bạn chỉnh lại code ở Button "Xuất kết quả" thành"
' XUAT KET QUA DO RA FILE IDOS
Dim duongdan As String
duongdan = "C:\Users\Admin\Documents"

Sheets("IDOS file").Select
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\Admin\Documents\Book1.xls"
Windows("Symmetry data.xlsm").Activate
Sheets("IDOS file").Select
Range("A15").Select
Selection.Copy
Windows("Book1.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Mình đã xem file và thấy lỗi là khi bạn add workbook mà không đặt tên thì mặc định excel sẽ thêm là book1. Đến lần chạy thứ 2 thì sẽ là book2. Vậy nên đoạn code Windows("Book1").Activate sẽ không thực thi được. Vậy nên bạn phải đóng hoàn toàn rồi mở lại.
Bạn chỉnh lại code ở Button "Xuất kết quả" thành"
' XUAT KET QUA DO RA FILE IDOS
Dim duongdan As String
duongdan = "C:\Users\Admin\Documents"

Sheets("IDOS file").Select
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\Admin\Documents\Book1.xls"
Windows("Symmetry data.xlsm").Activate
Sheets("IDOS file").Select
Range("A15").Select
Selection.Copy
Windows("Book1.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
...

nhờ bạn thêm vấn đề nữa:
bạn biết cách xuất thành file CSV mà định dạng như hình mình đính kèm ko. Mình đã xuất bằng excel nhưng khi mở notepad thì ko như mong muốn

 

[ngocbaovu]

cám ơn bạn nhiều nhiều nha

Bài đã được tự động gộp: 10/9/22

nhờ bạn thêm vấn đề nữa:
bạn biết cách xuất thành file CSV mà định dạng như hình mình đính kèm ko. Mình đã xuất bằng excel nhưng khi mở notepad thì ko như mong muốn

Cái này thấy bạn có 1 topic riêng đã hỏi. Làm cách đơn giản thì bạn chuyển hết định dạng về thành 1 ô dữ liệu. Trong file của bạn không cho chỉnh sửa sheet "IDOS file" nên mình làm thêm 1 sheet phụ và định dạng lại. Bạn tham khảo phương án để làm theo ý muốn.

 

[phan van tai]

Cái này thấy bạn có 1 topic riêng đã hỏi. Làm cách đơn giản thì bạn chuyển hết định dạng về thành 1 ô dữ liệu. Trong file của bạn không cho chỉnh sửa sheet "IDOS file" nên mình làm thêm 1 sheet phụ và định dạng lại. Bạn tham khảo phương án để làm theo ý muốn.

cám ơn bạn rất nhiều ạk, để mình xem thử

Bài đã được tự động gộp: 12/9/22

Cái này thấy bạn có 1 topic riêng đã hỏi. Làm cách đơn giản thì bạn chuyển hết định dạng về thành 1 ô dữ liệu. Trong file của bạn không cho chỉnh sửa sheet "IDOS file" nên mình làm thêm 1 sheet phụ và định dạng lại. Bạn tham khảo phương án để làm theo ý muốn.

định dạng nó ko giống bạn ơi, "S1";"S2" =>kết quả ""S1"";""S2"" => IDOS ko đọc được huhu

 

[batman1]

định dạng nó ko giống bạn ơi, "S1";"S2" =>kết quả ""S1"";""S2"" => IDOS ko đọc được huhu

Trong Excel bạn có S1 và S2. Vậy S1;S2 có được không? Tại sao phải là "S1";"S2"? Tôi hỏi vì nhu cầu của bạn có thể thế, nhưng cũng có thể không bắt buộc phải thế.

 

[echcomdaivuong]

cám ơn bạn rất nhiều ạk, để mình xem thử

Bài đã được tự động gộp: 12/9/22

định dạng nó ko giống bạn ơi, "S1";"S2" =>kết quả ""S1"";""S2"" => IDOS ko đọc được huhu

Thì trong ô A1 của sheets 'IDOs file 1' bạn làm công thức để bỏ 1 dấu " đi.

 

[batman1]

Nếu chỉ nói riêng về dấu chấm phẩy thì bạn đọc bài #11

xuất file định dạng CSV

thân chào mọi người nhờ mọi người giúp mình, việc là mình muốn xuất dữ liệu từ file excel ra thành file CSV mình muốn khi mở file CSV kết quả như hình đính kèm mình làm mọi cách mà vẫn không được

www.giaiphapexcel.com

 

[phan van tai]

Nếu chỉ nói riêng về dấu chấm phẩy thì bạn đọc bài #11

xuất file định dạng CSV

thân chào mọi người nhờ mọi người giúp mình, việc là mình muốn xuất dữ liệu từ file excel ra thành file CSV mình muốn khi mở file CSV kết quả như hình đính kèm mình làm mọi cách mà vẫn không được

www.giaiphapexcel.com

mình có tìm đc code xuất file CSV trên một vài diễn đàn, xuất định dạng theo như ý muốn. Nhưng tớ lại ko pit sửa code để xuất tự động lấy tên theo sheet("symmetry data").cell("C6")
=>bạn có thể giúp mình đc không

 

[batman1]

mình có tìm đc code xuất file CSV trên một vài diễn đàn, xuất định dạng theo như ý muốn. Nhưng tớ lại ko pit sửa code để xuất tự động lấy tên theo sheet("symmetry data").cell("C6")
=>bạn có thể giúp mình đc không

Viết code là chuyện nhỏ như con thỏ. Nhưng tôi không quan tâm vấn đề này nữa.