Code mở, refresh, save và đóng 1 file excel.

[ExcelQN]

Tôi có một file Q.xls, tôi muốn đoạn code mở file "D:\P.xls", làm tươi (refresh), lưu lại (save) và thoát file P.xls; Nhờ các bạn giúp cho. Xin cảm ơn trước.

 

[nhapmon]

những thao tác đơn giản như vậy bạn có thể vào Tools--->macro--->records macro.
sau đó thực hiện các thao tác của bạn để nó lưu lại.
sau khi thực hiện xong. bạn vào đó stop
rồi vào macro vừa được ghi, xóa đi những dòng lệnh không cần thiết.
chúc bạn may mắn.

 

[Hoàng Trọng Nghĩa]

những thao tác đơn giản như vậy bạn có thể vào Tools--->macro--->records macro.
sau đó thực hiện các thao tác của bạn để nó lưu lại.
sau khi thực hiện xong. bạn vào đó stop
rồi vào macro vừa được ghi, xóa đi những dòng lệnh không cần thiết.
chúc bạn may mắn.

Bạn thử ghi macro đi, rồi dùng macro đó thực hiện lại thao tác vừa làm có được không! Macro có thể ghi được động tác mở file từ một thư mục sao?

 

[Hoàng Trọng Nghĩa]

Tôi có một file Q.xls, tôi muốn đoạn code mở file "D:\P.xls", làm tươi (refresh), lưu lại (save) và thoát file P.xls; Nhờ các bạn giúp cho. Xin cảm ơn trước.

Bạn thử với thủ tục dưới đây:

1) Hàm kiểm tra File đã mở hay chưa:

Function IsWorkBookOpen(ByRef BookName As String) As Boolean
    On Error Resume Next
    IsWorkBookOpen = Not (Application.Workbooks(BookName) Is Nothing)
End Function

2) Thủ tục chạy theo yêu cầu của bạn:

Sub OpenRefreshSaveClose()
    Dim FileName As String
    FileName = "P.xls"
    If IsWorkBookOpen(FileName) = False Then
        Dim DirName As String, FilePath As String
        DirName = "D:\"
        FilePath = DirName & FileName
        Application.Workbooks.Open FilePath
    End If
    With Workbooks(FileName)
        '.Activate
        .RefreshAll
        .Close True
    End With
End Sub

Nếu cần thì phải có một hàm kiểm tra file tồn tại nữa nhé!

 

[nhapmon]

dear bạn nghĩa, minh vừa ghi lại thao tác mở file

Workbooks.Open Filename:="D:\NAM\75.xls" ' ban cu gõ đuong dân cua ban vao day

tức nhiên nó chỉ mở được một file cố định nào đó
why not????

 

[Hoàng Trọng Nghĩa]

dear bạn nghĩa, minh vừa ghi lại thao tác mở file

Workbooks.Open Filename:="D:\NAM\75.xls" ' ban cu gõ đuong dân cua ban vao day

tức nhiên nó chỉ mở được một file cố định nào đó
why not????

Bạn ghi macro được dòng màu đỏ không? Với người không biết gì thì hướng dẫn như cách của bạn có "lòi" ra cái màu đỏ hay không?

Macro tôi ghi lại khi thực hiện mở 1 file nè bạn:

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

 

[mua_tuyet2007]

Nhờ tư vấn mình muốn tạo một lệnh macro lưu và đóng file như trong file excell, tuy nhiên sau khi minh tạo xong và thực hiện macro thì bị báo như trong anh đính kèm, mình muốn khi thục hiện lạnh không còn bị như file anh đính kèm, nhờ các cao thủ chỉ giáo
thanks nhiều!
use:namtt
pass:123456