Không xài Thíworkbook.save được (1 người xem)

[HoangHacVT]

Chào ACE,

Cho mình hỏi cái form của mình khi nhập xong dự liệu, muốn save luôn cái sheet cho nó tiện nhưng nó không cho.

ACE xem dùm nhé,

Cảm ơn thật nhiều,

Hạc

 

[Quang_Hải]

Mở file ra đâu có thấy gì trong file đâu...

 

[HoangHacVT]

Mở file ra đâu có thấy gì trong file đâu...

Ôi tớ quên. Ban quanghai1969 xem lai dum nhe.

Khi to click nut "Quit" trong form FC01 thi no bao loi nhu vầy:

Private Sub CommandButton9_Click()
ThisWorkbook.Save
Application.Quit
End Sub

Minh làm cái file này = .xlsm, nhưng không gửi lên được. Lưu ra file .xlsx thi cai form không còn.

 

[ndu96081631]

Mở file ra đâu có thấy gì trong file đâu...

Nhìn file đính kèm dạng xlsx cũng biết là chẳng có cái quái gì trong đó rồi ---> Khỏi xem

Minh làm cái file này = .xlsm, nhưng không gửi lên được. Lưu ra file .xlsx thi cai form không còn.

Thì bạn nén lại thành .RAR rồi gửi... Còn không thì lưu file thành xls cũng có chết thằng Tây nào đâu

 

[Hoàng Trọng Nghĩa]

Ôi tớ quên. Ban quanghai1969 xem lai dum nhe.

Khi to click nut "Quit" trong form FC01 thi no bao loi nhu vầy:

Private Sub CommandButton9_Click()
ThisWorkbook.Save
Application.Quit
End Sub

Minh làm cái file này = .xlsm, nhưng không gửi lên được. Lưu ra file .xlsx thi cai form không còn.

Trước hết, cho mình hỏi, file này đã được lưu lại trước chưa hay tạo file mới rồi bấm vào nút lệnh luôn?

.xlsx hay .xlsm vậy?

 

[HoangHacVT]

Nhìn file đính kèm dạng xlsx cũng biết là chẳng có cái quái gì trong đó rồi ---> Khỏi xem

Thì bạn nén lại thành .RAR rồi gửi... Còn không thì lưu file thành xls cũng có chết thằng Tây nào đâu

Xin lỗi bác Du, lâu rồi không làm nên quên mất. Mình gửi file lại đây, bác xem giúp nhé!

 

[PhanTuHuong]

Bác ndu đã nói rồi, trong Excel 2007 đã là đuôi xlsx thì sẽ không có macro, muốn lưu được macro phải chuyển sang đuôi xlsm.

 

[Hoàng Trọng Nghĩa]

Xin lỗi bác Du, lâu rồi không làm nên quên mất. Mình gửi file lại đây, bác xem giúp nhé!

Sao File của bạn tạo được nhiều cái "Thisworkbook" hay vậy ta? Tôi xóa cũng không được!

 

[HoangHacVT]

Hehehe, biết chết liền....

 

[Hoàng Trọng Nghĩa]

Hehehe, biết chết liền....

Lẽ ra trong code bạn phải như vầy chứ?

Private Sub CommandButton9_Click()
Application.ThisWorkbook.Save
Application.Quit
End Sub

 

[PhanTuHuong]

Cẩn thận virus đó, tôi chưa thử!!!!

 

[HoangHacVT]

Lẽ ra trong code bạn phải như vầy chứ?

Private Sub CommandButton9_Click()
Application.ThisWorkbook.Save
Application.Quit
End Sub

Chỉ đơn giản vậy thôi hả? Sao tui không biết vậy trời????

 

[HoangHacVT]

Cẩn thận virus đó, tôi chưa thử!!!!

Hix, lảm gì có virus đâu.......

 

[HoangHacVT]

Sao File của bạn tạo được nhiều cái "Thisworkbook" hay vậy ta? Tôi xóa cũng không được!

Thực ra tớ cũng không biết rõ, nhưng bác PhanTuHuong có nghi ngại là virus nên tớ cũng suy nghĩ từ nãy đến giờ.

Mà thực ra thì nghĩ cũng không ra, nhưng nhìn cái hình bạn post lên thì thấy cái .XLA của tớ không còn nữa mà lại có cái FUNCRES.XLA của bạn.

Trước tớ có cái hàm đổi số ra chữ, save lại thành file.XLA rồi add-in vào excel. Thế nên khi mở VB trong excel sẽ thấy 2 cái ThisWorkbook ( một của file excel hiện hành và 1 của file .XLA.

Khi tớ gửi cái file này lên save lần 2 thành file.xls thì nó quá giới hạn cho phép nên tớ xóa bớt cái .XLA này (hehehe, có mắc cười thì cười đi)

Tớ nghĩ là thế, còn việc đúng sai xin dành cho các cao thủ cho ý kiến.

Trân trọng,
Hạc,