返回列表下一主題上一主題發帖

[發問] 巨集停止請教

bqwangs

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: win xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-5-22
最後登錄: 2020-3-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-7-8 20:56 | 只看該作者

[發問] 巨集停止請教

底下的巨集我設成一開檔就會自動執行crMain巨集
有辦法設一個按鈕或者根本不用設按鈕
就有辦法將EXCEL整個檔案關閉嗎??

Sub getCSV()
Dim textline As String
Dim myVals As Variant
Dim i As Long
On Error Resume Next
Open ThisWorkbook.Path & "\tttt.csv" For Input As #1

      Line Input #1, textline
      myVals = Split(textline, " ")
      With ActiveSheet
      For i = 0 To 1
         .Cells(i + 1, 1).Value = myVals(i)
      Next
      .Range("b5") = myVals(2)
      .Range("e5") = myVals(3)
      .Range("c5") = myVals(4)
      End With
Close #1
End Sub

Sub crMain()
lastM = 0
Do
      If lastM <> fMdfd Then
         lastM = fMdfd
         getCSV
      End If
      DoEvents
Loop
End Sub

Public Function fMdfd() As Variant
Dim fso As New filesystemobject
Dim theF As file

Set theF = fso.getfile(ThisWorkbook.Path & "\tttt.csv")
fMdfd = theF.DateLastModified
Set fso = Nothing
End Function