Excel 2003錄製的巨集，在Excel2007該如何修改
- 帖子
- 132
- 主題
- 56
- 精華
- 0
- 積分
- 190
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 365
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-17
- 最後登錄
- 2024-4-29
|
Excel 2003錄製的巨集，在Excel2007該如何修改
本帖最後由 acdx 於 2012-5-17 15:25 編輯
Dim mybtm As Integer
mypath = ActiveWorkbook.Path
Set fs = Application.FileSearch
With fs
.LookIn = mypath
.Filename = "zzz_results.xls"
If .Execute = 1 Then
mymsg = "zzz_results.xls exist, Overwrite it ?"
mytitle = " WARNING"
mybtn = MsgBox(mymsg, vbYesNo + vbExclamation, mytitle)
If mybtn = vbNo Then GoTo 40
Else
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=mypath & "\" & "zzz_results.xls"
End If
Workbooks.Open Filename:=mypath & "\" & "zzz_results.xls"
Cells.ClearContents
ActiveWorkbook.Save
End With |
|
|
|
|
|
|
|
- 帖子
- 132
- 主題
- 56
- 精華
- 0
- 積分
- 190
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 365
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-17
- 最後登錄
- 2024-4-29
|
回復 2# Hsieh
Set myFSObj = Application.FileSearch
With myFSObj
.LookIn = ActiveWorkbook.Path
.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
wkfile = .FoundFiles(i)
resultfile = mypath & "\" & "zzz_results.xls"
If resultfile = .FoundFiles(i) And i = .FoundFiles.Count Then GoTo 20
If resultfile = .FoundFiles(i) Then GoTo 30
Workbooks.Open Filename:=wkfile
若是這樣該如何改呢? |
|
|
|
|
|
|
|
發表於 2012-5-17 15:23
| 
