Tự động save as với VB

[tuanh1979]

Sau khi cập nhật dữ liệu từ form mình muốn chương trình tự động save as và khi thoát khỏi chương trình máy sẽ không hỏi Do you want to save....
thì làm thế nào nhỉ. chỉ cho dùm mình nhé. Thank

 

[DOSNET]

bạn thử ghi một cái macro "save" vào, xong rồi cho thực hiện cái code ấy khi thoát khỏi Ex.

 

[linhdt]

bạn thử câu lệnh này xem
sub
Application.DisplayAlerts=False
'code cua ban
........
end sub

 

[tuanh1979]

Nhưng phải đến khi thoát nó mới save, những chương trình phần mềm ứng dụng khác thì khi cập nhật là nó save luôn. Thoát khỏi chương trình người sử dụng không cần phải save. Ban nghĩ thêm cho mình nhé

 

[Mr Okebab]

Nhưng phải đến khi thoát nó mới save, những chương trình phần mềm ứng dụng khác thì khi cập nhật là nó save luôn. Thoát khỏi chương trình người sử dụng không cần phải save. Ban nghĩ thêm cho mình nhé

Excel không cho phép như vậy bạn ạ. Chỉ khi nào bạn lưu thì mới thực sự là Save, còn nếu không Save thì coi như chưa từng . . .lưu. Mà cái việc Lưu này chỉ xảy ra khi bạn tự làm trong lúc làm việc hay lúc thoát.

Chính vì vậy Excel mới chỉ là . . . SHEET !!!

Thân!

 

[linhdt]

Bạn thử thế này nhé:
Application.DisplayAlerts=False
.......
code của bạn
.....
Activeworkbook.Save

Application.DisplayAlerts=True

 

[Mr Okebab]

Bạn thử thế này nhé:
Application.DisplayAlerts=False
.......
code của bạn
.....
Activeworkbook.Save

Application.DisplayAlerts=True

Chỉ cần bạn thêm :

 Activeworkbook.Saved = True

Trước khi thoát Workbook_BeforeClose là nó đâu có hỏi nữa

Thân!

 

[phamhuubi]

Sau khi cập nhật dữ liệu từ form mình muốn chương trình tự động save as và khi thoát khỏi chương trình máy sẽ không hỏi Do you want to save....
thì làm thế nào nhỉ. chỉ cho dùm mình nhé. Thank

Nhưng nếu em muốn lưu 1 trang đó sang 1 sheet khác và lưu theo thứ tự từ 1 -1000 thì làm sao vậy các anh oi. thank nhieu nha nếu ai có code thì gửi wa mail phuubibd@yahoo.com.vn dùm nha. heeee

 

[hungktvn]

Nhưng phải đến khi thoát nó mới save, những chương trình phần mềm ứng dụng khác thì khi cập nhật là nó save luôn. Thoát khỏi chương trình người sử dụng không cần phải save. Ban nghĩ thêm cho mình nhé

Bạn vào ThisWorkbook nhập vào đoạn mã sau:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

 

[Hai Lúa Miền Tây]

Nhưng phải đến khi thoát nó mới save, những chương trình phần mềm ứng dụng khác thì khi cập nhật là nó save luôn. Thoát khỏi chương trình người sử dụng không cần phải save. Ban nghĩ thêm cho mình nhé

Dùng code sau nhé:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Thiết nghĩ có cần phải làm như vậy không ? Nếu file dữ liệu lớn thì như thế nào ?

 

[ngoloi17]

Em có thấy nó tự SAve đâu?