Ẩn thông báo quá trình mở file excel

[vu_tuan_manh_linh]

Mọi người chỉ giúp: tại statusbar khi mở 1 file thường hiện lên thông báo quá trình mở file như hình vẽ, dùng code ẩn quá trình này đi như thế nào? Tôi cố gắng tìm trong application... gì gì đó mà không hiểu gọi "nó" là cái gì.

 

[doveandrose]

nghe nói nó là Application.DisplayStatusBar

 

[vu_tuan_manh_linh]

nghe nói nó là Application.DisplayStatusBar

Cảm ơn doveandrose! Cái đó thì đương nhiên rồi. Ý mình là statusbar vẫn hiện, nhưng ẩn cái process đó đi, kiểu như application.statusbar="". Mình đã thử bằng cách cho application.screenupdating=false trước Application.DisplayStatusBar thì cũng tàm tạm!!

 

[doveandrose]

đã có application.screenupdating=false thì dẹp luôn Application.DisplayStatusBar

 

[vu_tuan_manh_linh]

đã có application.screenupdating=false thì dẹp luôn Application.DisplayStatusBar

Cùng lúc tôi mở nhiều workbook. Nếu đặt lệnh Application.ScreenUpdating=False 1 lần trước lệnh mở workbook đầu tiên thì chỉ thực thi với workbook đó. Các workbook sau vẫn hiện tiến trình mở file. Có lẽ do lệnh Application.ScreenUpdating tự đặt lại giá trị True sau khi mở 1 file.

 

[doveandrose]

Cùng lúc tôi mở nhiều workbook. Nếu đặt lệnh Application.ScreenUpdating=False 1 lần trước lệnh mở workbook đầu tiên thì chỉ thực thi với workbook đó. Các workbook sau vẫn hiện tiến trình mở file. Có lẽ do lệnh Application.ScreenUpdating tự đặt lại giá trị True sau khi mở 1 file.

tùy tiện thay đổi giá trị Application.ScreenUpdating mà không có sự can thiệp của người dùng thì còn ai dám xài excel nữa ?
Bạn có mở 100 file excel thì Application.ScreenUpdating vẫn chả có gì khác , còn không thì bạn cho xem những file của bạn tôi mới tin .

 

[vu_tuan_manh_linh]

tùy tiện thay đổi giá trị Application.ScreenUpdating mà không có sự can thiệp của người dùng thì còn ai dám xài excel nữa ?
Bạn có mở 100 file excel thì Application.ScreenUpdating vẫn chả có gì khác , còn không thì bạn cho xem những file của bạn tôi mới tin .

Tôi mở các file bằng 1 exe vb6. Có lẽ do là môi trường "ngoài" nên lệnh trên mới tự đặt lại True khi mở workbook mới. Sự thật diễn ra như đúng tôi nói tại #5, không biết giải thích thế nào nữa!!

 

[doveandrose]

Tôi mở các file bằng 1 exe vb6. Có lẽ do là môi trường "ngoài" nên lệnh trên mới tự đặt lại True khi mở workbook mới. Sự thật diễn ra như đúng tôi nói tại #5, không biết giải thích thế nào nữa!!

Ở đây ta cứ thoải mái bàn , tôi đâu có ý gì khác . Bạn cho biết trong VB6 mở bằng code gì ? mỗi lần mở file là tạo thêm 1 [FONT=&quot]CreateObject(“Excel.Application”) chăng ?[/FONT]

 

[vu_tuan_manh_linh]

Ở đây ta cứ thoải mái bàn , tôi đâu có ý gì khác . Bạn cho biết trong VB6 mở bằng code gì ? mỗi lần mở file là tạo thêm 1 [FONT=&amp]CreateObject(“Excel.Application”) chăng ?[/FONT]

Oh! Sorry, là code VBNet, nhưng có lẽ không khác biệt là mấy so với VB6. Code thê này đây ạ!

Imports System
Imports System.Diagnostics
Imports Excel = Microsoft.Office.Interop.Excel
Module Module1
    Sub Main()
        Dim XlApp As Excel.Application
        Dim Wb As Excel.Workbook
        Dim XlAdd1 As Excel.Workbook
        Dim XlAdd2 As Excel.Workbook
        Dim FolderLink As String
        FolderLink = CurDir()
        XlApp = New Excel.Application
        Wb = XlApp.Workbooks.Open(Filename:=FolderLink & "\Temple.xlsm)
        XlApp.Visible = True
        XlApp.ScreenUpdating = False
        XlAdd1 = XlApp.Workbooks.Open(Filename:=FolderLink & "\Data\Data0.xlam)
        If XlAdd1.Worksheets("Sheet1").Cells(1, 1).Value = True Then
            XlApp.ScreenUpdating = False
            XlAdd2 = XlApp.Workbooks.Open(Filename:=FolderLink & "\Data\Data1.xlam")
            XlApp.ScreenUpdating = False
            XlAdd2 = XlApp.Workbooks.Open(Filename:=FolderLink & "\Data\Data2.xlam")
            XlApp.ScreenUpdating = False
            XlAdd2 = XlApp.Workbooks.Open(Filename:=FolderLink & "\Data\Data3.xlam")
        End If
        XlApp.ScreenUpdating = True
    End Sub
End Module

Nếu chỉ có 1 câu lệnh XlApp.ScreenUpdating = False đầu tiên thì chỉ ngắt được hiển thị khi mở book đầu tiên. Các book sau vẫn hiện tiến trình mở.

 

[doveandrose]

ừ . Tôi đã thử mở vài file Xlam bằng VB.net , có file sẽ tự làm thay đổi Application.ScreenUpdating về True khi Mở mặc dù trong Addin đó ko có lệnh nào là Application.ScreenUpdating cả . Theo như tôi thấy thì Addin nào có lệnh chèn Menu vào Ribon sẽ tự làm cho Application.ScreenUpdating trở về True .
các file excel thường thì chưa thấy bị .

 

[vu_tuan_manh_linh]

ừ . Tôi đã thử mở vài file Xlam bằng VB.net , có file sẽ tự làm thay đổi Application.ScreenUpdating về True khi Mở mặc dù trong Addin đó ko có lệnh nào là Application.ScreenUpdating cả . Theo như tôi thấy thì Addin nào có lệnh chèn Menu vào Ribon sẽ tự làm cho Application.ScreenUpdating trở về True .
các file excel thường thì chưa thấy bị .

Hơi lằng nhằng 1 chút khi lặp lại lệnh, nhưng không sao, đã giải quyết được vấn đề. Cảm ơn doveandrose đã thảo luận!! (Không có nút cảm ơn nên hơi dài dòng chút, hihi!)