Hỏi về lâp trình tự động mở file theo thời gian? (1 người xem)

KUMI · 6/3/13

Xin chào GPE!
Em có một câu hỏi này, không biết là có vô lý quá không ạ?
Em không rành về phần mềm nếu hỏi sai phiê`n Ban Quản trị GPE xóa bài giúp em nhé!Tks!

Em muốn hỏi là có thể lập trình được file Excel đang đóng mà có thể tự mở lên khi mà đến một khoảng thời gian đã định trong file được không? (nghĩa là không cần dùng tay để mở) bất kỳ nó lưu ở đâu nhưng cứ đến 1 khoảng thời gian đã đinh thì nó sẽ mở lên.

Cụ thể là trong file đính kèm em đã đưa ra 1 ví dụ 2 mốc thời gian để tự file mở lên.

Câu hỏi này em thấy có vẻ hơi vô lý là vì không mở file thì làm sao mã lập trình hoạt động ngầm được nhỉ..Nhưng Thấy GPE có rất nhiều điều bất ngờ lên em cứ thử hỏi xem sao .. hihi

Mong GPE góp ý ạ! Xin cám ơn!

ndu96081631 · 6/3/13

KUMI đã viết:
Xin chào GPE!
Em có một câu hỏi này, không biết là có vô lý quá không ạ?
Em không rành về phần mềm nếu hỏi sai phiê`n Ban Quản trị GPE xóa bài giúp em nhé!Tks!

Em muốn hỏi là có thể lập trình được file Excel đang đóng mà có thể tự mở lên khi mà đến một khoảng thời gian đã định trong file được không? (nghĩa là không cần dùng tay để mở) bất kỳ nó lưu ở đâu nhưng cứ đến 1 khoảng thời gian đã đinh thì nó sẽ mở lên.

Cụ thể là trong file đính kèm em đã đưa ra 1 ví dụ 2 mốc thời gian để tự file mở lên.

Câu hỏi này em thấy có vẻ hơi vô lý là vì không mở file thì làm sao mã lập trình hoạt động ngầm được nhỉ..Nhưng Thấy GPE có rất nhiều điều bất ngờ lên em cứ thử hỏi xem sao .. hihi

Mong GPE góp ý ạ! Xin cám ơn!

Bạn tự mình suy luận đi!
Giả định rằng code đang có trong file, vậy khi file chưa mở thì code sẽ chạy bằng cách nào?
Có 2 giải pháp:
- Hoặc là Excel vẫn đang được mở, khi ấy code sẽ nằm trong Add-In (chẳng hạn)
- Hoặc là dùng chương trình khác, chẳng hạn Task Schedule, VB... vân vân

KUMI · 7/3/13

Em cám ơn sự gợi ý của Thầy!
Đúng là 2 cái giải pháp của Thầy nói đến gải pháp về add-in em còn lơ tơ mơ về add-in là thế nào
còn giả pháp sau em không thể hiểu gì luôn rồi..Thầy ạ
---------------
Nói như Thầy đúng là chắc vẫn có khả năng có thể rồi nhưng có vẻ rắc rồi quá phải không Thầy?
Nếu vậy thì Em muốn đổi lại câu hỏi trên là:
Với file kèm trên của em.. Em se mở nó cả ngày làm việc luôn
Sau đó em sẽ thu nhỏ nó xuống để nó nằm ở thanh Taskbar như vậy có nghĩa là file vẫn đang mở phải không ạ?
Bây giờ em sẽ làm công việc khác không nghĩ đến file đấy nữa... Em muốn hỏi là có thể lập trình được cứ đến thời gian trong file đính kèm thì file tự động hiển thị lên và hiện thông báo "Đã đến giờ.."
Như vậy có khó không ạ?
Kính mong Thầy & mọi người trong GPE giúp đỡ thêm ạ! Em cảm ơn!

ndu96081631 · 7/3/13

KUMI đã viết:
=
Nếu vậy thì Em muốn đổi lại câu hỏi trên là:
Với file kèm trên của em.. Em se mở nó cả ngày làm việc luôn
Sau đó em sẽ thu nhỏ nó xuống để nó nằm ở thanh Taskbar như vậy có nghĩa là file vẫn đang mở phải không ạ?
Bây giờ em sẽ làm công việc khác không nghĩ đến file đấy nữa... Em muốn hỏi là có thể lập trình được cứ đến thời gian trong file đính kèm thì file tự động hiển thị lên và hiện thông báo "Đã đến giờ.."
Như vậy có khó không ạ?
Kính mong Thầy & mọi người trong GPE giúp đỡ thêm ạ! Em cảm ơn!

Cái này thì quá dễ. Nghiên cứu Application.Ontime xem
Ví dụ thế này:
Bạn gõ giờ vào 2 cell A1 và A2, xong copy code dưới đây cho vào Module

Mã:

Public arr, lCount As Long
Private Sub Msg()
  Application.WindowState = xlMaximized
  MsgBox "Da den gio!"
  Auto_Open
End Sub

Mã:

Sub Auto_Open()
  If Not IsArray(arr) Then arr = Sheet1.Range("A1:A2").Value
  lCount = lCount + 1
  lCount = ((lCount - 1) Mod UBound(arr)) + 1
  Application.WindowState = xlMinimized
  Application.OnTime CDbl(arr(lCount, 1)), "Msg"
End Sub

Bấm Alt + F8, chạy Sub Autpen rồi... chờ xem

KUMI · 7/3/13

Ôi! Đúng rôì Thâỳ Ạ!Hihi!
Thầy có thể chir cho em thêm 1 vấn đề nữa được không ạ?
Như trong file kèm em đã thêm 1 cột ngày tháng. Nếu ngày thời gian tương ứng với ngày hiện tại thì sẽ hiện thông báo "Đã đến giờ"..
Liệu có khó quá không hả Thầy! Em cám ơn Thầy nhiều nhiều!

hoanglocphat · 7/3/13

ndu96081631 đã viết:
Bạn tự mình suy luận đi!

- Hoặc là Excel vẫn đang được mở, khi ấy code sẽ nằm trong Add-In (chẳng hạn)

Bạn cho tôi hỏi:
Nếu code đặt trong Add-in thì:
Giả sử tôi có File tên "DenHan", trong File có khối D10

100 là các ô chứa ngày tháng năm (dd/mm/yyyy)
Tôi muốn , khi mở Excel lên thì Add-in tự động kích hoạt mở File "DenHan" lên, rồi kiểm tra ngày hệ thống và khối D10

100 nói trên, nếu có cell nào trong khối D10

100 thỏa điều kiện: trước ngày hệ thống 2 ngày và sau ngày hệ thống 2 ngày. Ví dụ: Hôm nay là 07/03/2013 thì các cell có chứa các ngày 05/03/13 đến 09/03/13 sẽ thỏa điều kiện.
Khi có cell nào thỏa điều kiện thì vẫn giữ nguyên File "DenHan" (không đóng). Nếu không có cell nào thỏa điều kiện thì đóng File "DenHan"
Giả sử File "DenHan" đặt trong ổ D và trong thư mục Tam
Không biết, ý định của mình có thể thực hiện & viết code được không? Mong sự hỗ trợ của tất cả các bạn
Xin cảm ơn!

hoanglocphat · 8/3/13

Chào các bạn, không biết bài trên của mình giải quyết được không nhỉ?
Mục đích của mình là theo dõi nợ quá hạn đó
Cảm ơn!

ndu96081631 · 8/3/13

hoanglocphat đã viết:
Chào các bạn, không biết bài trên của mình giải quyết được không nhỉ?
Mục đích của mình là theo dõi nợ quá hạn đó
Cảm ơn!

Đương nhiên là được rồi! Quy trình sẽ thế này:
- Kiểm tra sự tồn tại của file: CreateObject("Scripting.FileSystemObject").FileExists("D:\Tam\DenHan.xls") ---> Nếu có thì đi tiếp
- Mở file, so sánh Date với các giá trị tại D10

100 rồi làm gì tiếp là tùy bạn
Tôi nghĩ code cũng khá đơn giản, bạn tự là đi (Chổ FileSystemObject e rằng bạn không biết nên tôi ghi sẵn luôn)

hoanglocphat · 8/3/13

ndu96081631 đã viết:
Đương nhiên là được rồi! Quy trình sẽ thế này:
- Kiểm tra sự tồn tại của file: CreateObject("Scripting.FileSystemObject").FileExists("D:\Tam\DenHan.xls") ---> Nếu có thì đi tiếp
- Mở file, so sánh Date với các giá trị tại D10100 rồi làm gì tiếp là tùy bạn
Tôi nghĩ code cũng khá đơn giản, bạn tự là đi (Chổ FileSystemObject e rằng bạn không biết nên tôi ghi sẵn luôn)

Chào bạn
Tôi cũng đang tìm hiểu code, những vấn đề trên đối với mình chẳng đơn giản tí nào
Bạn có thể giúp mình viết luôn code được không ?
Cảm ơn các bạn!

hungpecc1 · 8/3/13

hoanglocphat đã viết:
Chào bạn
Tôi cũng đang tìm hiểu code, những vấn đề trên đối với mình chẳng đơn giản tí nào
Bạn có thể giúp mình viết luôn code được không ?
Cảm ơn các bạn!

Thì bạn cứ tiếp tục tìm hiểu tiếp <----------- có ai là biết liền đâu __--__

Mình "đi " thử 1 đoạn bạn tham khảo <----------( không có file nên chưa thử, đúng sai do bạn tự quyết )
[GPECODE=vb]
Sub OpenFile()
Dim Today As Date, Tmparr, Item, tmp
Dim chk As Boolean, FileName$
Debug.Print chk
Today = CDate(Format(Now(), "dd/mm/yyyy"))
FileName = "D:\Tam\DenHan.xls"
With CreateObject("Scripting.FileSystemObject")
If .FileExists("D:\Tam\DenHan.xls") Then
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
.Workbooks.Open FileName
End With
Tmparr = [D10

100].Value
For Each Item In Tmparr
If Len(Item) Then
tmp = CDate(Format(Item, "dd/mm/yyyy"))
If Abs(Today - tmp) = 2 Then chk = True
End If
Next
If chk Then
MsgBox "CHAO MUNG 8-3 "
Else
Workbooks("DenHan.xls").Close
End If
End If
End With
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
End With
End Sub[/GPECODE]

ndu96081631 đã viết:
Tôi nghĩ code cũng khá đơn giản, bạn tự là đi

^^ để " đi " theo kip anhđược -> chắc là em phải mất 100 năm nữa mất !$@!!

Quá trình học VBA của em mới dừng lại ở sơ đồ dưới thôi ah : :close_tema:

Nằm học --> lẫy ----> bò ----> lò dò biết đi ----->.............

HAPPY WOMEN"S DAY !

ndu96081631 · 8/3/13

hungpecc1 đã viết:

Thì bạn cứ tiếp tục tìm hiểu tiếp <----------- có ai là biết liền đâu __--__

Mình "đi " thử 1 đoạn bạn tham khảo <----------( không có file nên chưa thử, đúng sai do bạn tự quyết )

Mã:

Sub OpenFile()
    [COLOR=#ff0000]Dim Today As Date[/COLOR], Tmparr, Item, tmp
    Dim chk As Boolean, FileName$
        Debug.Print chk
        [COLOR=#ff0000]Today = CDate(Format(Now(), "dd/mm/yyyy"))[/COLOR]
        FileName = "D:\Tam\DenHan.xls"
        With CreateObject("Scripting.FileSystemObject")
                If .FileExists("D:\Tam\DenHan.xls") Then
                    With Application
                        .ScreenUpdating = 0
                        .DisplayAlerts = 0
                        .Workbooks.Open FileName
                    End With
                    Tmparr = [D10:D100].Value
                    For Each Item In Tmparr
                        If Len(Item) Then
                            [COLOR=#ff0000]tmp = CDate(Format(Item, "dd/mm/yyyy"))[/COLOR]
                            If Abs(Today - tmp) = 2 Then chk = True
                        End If
                    Next
                    If chk Then
                        MsgBox "CHAO MUNG 8-3  "
                    Else
                        Workbooks("DenHan.xls").Close
                    End If
                End If
        End With
        With Application
            .ScreenUpdating = 1
            .DisplayAlerts = 1
        End With
End Sub

Today = CDate(Format(Now(), "dd/mm/yyyy"))
Đơn giản sao không là thế này: Today = Date và Dim Today as Long cho khỏe
Mấy chổ màu đỏ là những chổ có thể sửa lại

KUMI · 8/3/13

Hix! Thấy mọi người tra đổi nhiệt tình ở chủ đề của mình em thấy vui quá! Nhưng chẳng hiểu gì hết cả hihi ..
GPE giúp em giải quyết bài #5 với ạ?
Em xin cảm ơn!

Hong.Van · 8/3/13

hungpecc1 đã viết:
Thì bạn cứ tiếp tục tìm hiểu tiếp <----------- có ai là biết liền đâu

Mình "đi " thử 1 đoạn bạn tham khảo <----------( không có file nên chưa thử, đúng sai do bạn tự quyết )
[GPECODE=vb]
Sub OpenFile()
Dim Today As Date, Tmparr, Item, tmp
Dim chk As Boolean, FileName$
Debug.Print chk
Today = CDate(Format(Now(), "dd/mm/yyyy"))
FileName = "D:\Tam\DenHan.xls"
With CreateObject("Scripting.FileSystemObject")
If .FileExists("D:\Tam\DenHan.xls") Then
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
.Workbooks.Open FileName
End With
Tmparr = [D10100].Value
For Each Item In Tmparr
If Len(Item) Then
tmp = CDate(Format(Item, "dd/mm/yyyy"))
If Abs(Today - tmp) = 2 Then chk = True
End If
Next
If chk Then
MsgBox "CHAO MUNG 8-3 "
Else
Workbooks("DenHan.xls").Close
End If
End If
End With
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
End With
End Sub[/GPECODE]

^^ để " đi " theo kip anhđược -> chắc là em phải mất 100 năm nữa mất
Quá trình học VBA của em mới dừng lại ở sơ đồ dưới thôi ah :

Nằm học --> lẫy ----> bò ----> lò dò biết đi ----->.............

HAPPY WOMEN"S DAY !

Hi, đây cũng là chủ đề em đã từng tìm hiểu
Để phù hợp em đã chỉnh sửa code 1 chút

Mã:

Sub Auto_Open()
    Dim Today As Date, Tmparr, Item, tmp
    Dim chk As Boolean, FileName$
        Debug.Print chk
        Today = CDate(Format(Now(), "dd/mm/yyyy"))
        FileName = "D:\My Dropbox\Se_In\SuKien.xls"
        With CreateObject("Scripting.FileSystemObject")
        Workbooks.Open "D:\My Dropbox\Se_In\SuKien.xls" 'them
                If .FileExists("D:\My Dropbox\Se_In\SuKien.xls") Then
                    With Application
                        .ScreenUpdating = 0
                        .DisplayAlerts = 0
                        .Workbooks.Open FileName
                    End With
                    Tmparr = Sheets("Y").Range("D5:D100").Value
                    For Each Item In Tmparr
                        If Len(Item) Then
                            tmp = CDate(Format(Item, "dd/mm/yyyy"))
                            If Today - tmp >= -2 And Today - tmp <= 1 Then chk = True
                        End If
                    Next
                    If chk Then
                        MsgBox "Co ngay den han! Ban xem lai! "
                    Else
                        Workbooks("SuKien.xls").Close
                    End If
                End If
        End With
        With Application
            .ScreenUpdating = 1
            .DisplayAlerts = 1
        End With
End Sub

Code trên em chép vào 1 Module của 1 Add-in, như vậy khi khởi động Excel, nếu thỏa mãn điều kiện If Today - tmp >= -2 And Today - tmp <= 1 Then chk = True
thì được thông báo "Co ngay den han! Ban xem lai! "
Tuy nhiên, vì nó thông báo kiểu chung chung quá, em muốn nó thông báo cụ thể hơn.
Ví dụ:
Tại Sheet "Y", Cell D5 là 08/03/13 và cell C5 có nội dung "Chúc mừng Ngày 8/3", như vậy cell D5 đã thỏa điều kiện trên và đồng thời Msg thông báo "Chúc mừng Ngày 8/3"
Tương tự đến gần ngày 30/06/2013 thì sẽ thông báo "Mừng sinh nhật Excel lần thứ 8"
Và dĩ nhiên có nhiều cell thỏa mãn điều kiện thì sẽ có nhiều thông báo!
---------
Mong các thầy cô & anh chị giúp em sửa code
Em cảm ơn!
-----------
P/s: cũng đã cố sửa, nhưng chỉ sửa được như trên

Hong.Van · 9/3/13

Hic, Em cũng đã mày mò được!
Nhờ các Thầy & anh chị xem

Mã:

Sub Auto_Open()
    Dim Today As Date, Tmparr, Item, tmp
    Dim chk As Boolean, FileName$
    Dim i, Arr(), Text As String
   Text = "CHU1 Y1: "
    Debug.Print chk
    Today = CDate(Format(Now(), "dd/mm/yyyy"))
    FileName = "D:\My Dropbox\Se_In\SuKien.xls"
    With CreateObject("Scripting.FileSystemObject")
        Workbooks.Open "D:\My Dropbox\Se_In\SuKien.xls"    'them
        If .FileExists("D:\My Dropbox\Se_In\SuKien.xls") Then
            With Application
                .ScreenUpdating = 0
                .DisplayAlerts = 0
                .Workbooks.Open FileName
            End With
            Tmparr = Sheets("Y").Range("D5:D1000").Value
            For Each Item In Tmparr
                If Len(Item) Then
                    tmp = CDate(Format(Item, "dd/mm/yyyy"))
                    
                    If Today - tmp >= -3 And Today - tmp <= 2 Then chk = True


                End If
            Next
            If chk Then
                 
                With Sheets("Y")
                    Arr = Range([D5], [D65536].End(3))
                    For i = 1 To UBound(Arr)
                        If Arr(i, 1) <> "" Then
                            If Today - Arr(i, 1) >= -3 And Today - Arr(i, 1) <= 2 Then
                                CreateObject("WScript.Shell").Popup UniConvert(Text, "VNI") & Cells(i + 4, 2).Value, , "THÔNG BÁO by H.V", vbOKOnly


                            End If
                        End If
                    Next
                End With
            Else
                Workbooks("SuKien.xls").Close
            End If
        End If
    End With
    With Application
        .ScreenUpdating = 1
        .DisplayAlerts = 1
    End With
End Sub

quykiemsau · 10/3/13

KUMI đã viết:
Ôi! Đúng rôì Thâỳ Ạ!Hihi!
Thầy có thể chir cho em thêm 1 vấn đề nữa được không ạ?
Như trong file kèm em đã thêm 1 cột ngày tháng. Nếu ngày thời gian tương ứng với ngày hiện tại thì sẽ hiện thông báo "Đã đến giờ"..
Liệu có khó quá không hả Thầy! Em cám ơn Thầy nhiều nhiều!

Không khó nhưng chắc là cũng hết cách rồi bạn ạ!

Hỏi về lâp trình tự động mở file theo thời gian? (1 người xem)

Người dùng đang xem chủ đề này

KUMI

Bụi phấn

File đính kèm

ndu96081631

Huyền thoại GPE

KUMI

Bụi phấn

ndu96081631

Huyền thoại GPE

KUMI

Bụi phấn

File đính kèm

hoanglocphat

Thành viên thường trực

hoanglocphat

Thành viên thường trực

ndu96081631

Huyền thoại GPE

hoanglocphat

Thành viên thường trực

hungpecc1

Thành viên gắn bó

ndu96081631

Huyền thoại GPE

KUMI

Bụi phấn

Hong.Van

Busy

File đính kèm

Hong.Van

Busy

quykiemsau

Thành viên chính thức

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.