[分享] 在文件外寫文件註解

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2014-10-23 13:23 | 只看該作者

回復 10# mhl9mhl9

超連接分別連接book2.xlsm和book3.xls,我希望點擊book2.xlsm能用2007開啟,點擊book3.xls能用2003Application開啟

這是不錯的構想,有在哪裡看到嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

10^#

發表於 2014-10-23 12:50 | 只看該作者

回復 9# GBKEE

book1.xls里建立2個超鏈接,分別連接book2.xlsm和book3.xls,用2003開啟book1.xls點擊這2個連接,系統都用2003Application開啟.我希望點擊book2.xlsm能用2007開啟,點擊book3.xls能用2003Application開啟.
你提供的方法是測試開啟book1.xls的Application.version,我試了試,與開啟點擊超連接,系統用什麼version的Application開啟無關.

lmh

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2014-10-23 05:07 | 只看該作者

回復 GBKEE

但是,"2007 的超連接語法"和2003不同的嗎?
mhl9mhl9 發表於 2014/10/22 23:49

在2003測試和保存的文件,超鏈接用2007開啟,時時會有問題,又不想改文件(往往是要用才會改),只能改application重新開啟.我是想可不可以用VB控制系統按副檔名決定用2003或2007開啟超鏈接的excel文件.問題似乎有點不合邏輯

複製代碼

這段可以再說明白一些嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

8^#

發表於 2014-10-22 23:49 | 只看該作者

回復 7# GBKEE

但是,"2007 的超連接語法"和2003不同的嗎?

lmh

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-10-21 14:22 | 只看該作者

回復 5# mhl9mhl9

我是想可不可以用VB控制系統按副檔名決定用2003或2007開啟超鏈接的excel文件.問題似乎有點不合邏輯,有可能做到嗎?

是這樣嗎?

Private Sub 檔案物件_副程式(f As Object, Rng As Range)
With Rng
.Range("a1") = f.ParentFolder '傳回指定檔案或資料夾的父資料夾物件。
.Range("b1") = f.Name
'***************************************
If Application.Version = "11.0" Then 'Excel 2003 版本
.Hyperlinks.Add Anchor:=.Range("b1"), Address:=f
ElseIf Application.Version = "12.0" Then 'Excel 2007 版本
'2007 的超連接語法
End If
'***************************************
.Range("c1") = Fs.GetExtensionName(f) '傳回檔案的副檔名
.Range("d1") = f.Size / 1024
.Range("e1") = f.DateCreated '檔案或資料夾的建立日期和時間
.Range("F1") = f.DateLastAccessed '檔案最後一次存取指定檔案或資料夾的日期和時間
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

蝕光迴狼

　暱稱: 蝕光迴狼

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2014-10-21 14:08 | 只看該作者

感謝 mhl9mhl9 的用心分享：
　讓還是新手學習的我，知道原來Excel 還可以這樣做，
　　1.提取資料夾底下的文件
　　2.列出文件的日期與時間
　　3.列出文件的大小位元
　　4.文件表格內字串的搜尋
　　5.【指令按鈕】與【表單按鈕】的不同應用
　　6.Excel 表的底色清除方式
　　7.文件所在路徑帶出方式

　是個不錯的學習範本與學習方向，謝謝您～

我很笨,所以我很用心
　我學藝不精,但我渴求知識

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

5^#

發表於 2014-10-21 13:56 | 只看該作者

回復 3# GBKEE

太好了,順暢,快捷,copy and paste,就能用,真是謝謝.
我還有個疑惑想求教,按副檔名不同,系統會自動選擇2003或2007開啟excel檔案,但用超鏈接開啟excel文件就不同了,超鏈接在2003系統用2003開啟所有excel文件,超鏈接在2007系統則用2007開啟所有excel文件,有時麻煩也幾大的,在2003測試和保存的文件,超鏈接用2007開啟,時時會有問題,又不想改文件(往往是要用才會改),只能改application重新開啟.我是想可不可以用VB控制系統按副檔名決定用2003或2007開啟超鏈接的excel文件.問題似乎有點不合邏輯,但我還想問問高手,有可能做到嗎?謝謝你

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

4^#

發表於 2014-10-21 12:34 | 只看該作者

回復 3# GBKEE

謝謝先,要明天有時間認真學習.

lmh

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-10-21 10:50 | 只看該作者

回復 2# mhl9mhl9

11       因為 filesearch 在excel2007不再可用,所以本文件不能在2007excel使用
      可以打開本文件,但"文件列表"失效.
12       如果不用 filesearch,而改用Dir(),excel2007就可以用了.我試過Dir(),但抽取多層子資料夾
      文件不理想,本質還是學得不夠.一知半解吧.

2007 可試試看 CreateObject("Scripting.FileSystemObject")

Option Explicit
Dim Fs As Object, Sh As Worksheet, d As Object
Sub iMain_Ex()
Dim xlFileDialog As FileDialog
Set xlFileDialog = Application.FileDialog(msoFileDialogFolderPicker) '開啟資料夾的對話框
If xlFileDialog.Show = True Then '對話框: 有按下確定
Application.ScreenUpdating = False
Set Sh = Sheet1
Set Fs = CreateObject("Scripting.FileSystemObject") '系統檔案物件: 提供對電腦檔案系統的存取
Set d = CreateObject("Scripting.dictionary") '字典物件
With Sh.UsedRange
.Clear
.Range("a1").Resize(, 7) = Array("路徑", "文件名", "副檔名", "文件長度", "建檔日期", "存檔日期", "註解")
.Range("A1:F1").Font.Bold = True
.Range("A1:F1").HorizontalAlignment = xlCenter
資料夾_副程式 xlFileDialog.SelectedItems(1)
.Columns("D:D").NumberFormatLocal = "#,### ""KB"""
.Columns("E:F").NumberFormatLocal = "yyyy-mm-dd"
End With
Application.ScreenUpdating = True
End If
End Sub
Private Sub 資料夾_副程式(資料夾 As String)
Dim f As Object
For Each f In Fs.GetFolder(資料夾).Files 'Files(物件):檔案集合
With Sh.[A1].End(xlDown).End(xlDown).End(xlUp).Offset(1)
檔案物件_副程式 f, .Cells
' .Range("a1") = f.ParentFolder
' .Range("b1") = f.Name
' .Hyperlinks.Add Anchor:=.Range("b1"), Address:=f
' .Range("c1") = Fs.GetExtensionName(f) ''Mid(F.Name, InStr(F.Name, ".") + 1)
' .Range("d1") = f.Size / 1024
' .Range("e1") = f.DateCreated
' .Range("F1") = f.DateLastAccessed
字典物件_副程式 f, .Range("b1")
' If d.Exists(F.Name) Then
' Set d(F.Name) = Union(d(F.Name), .Range("b1"))
' d(F.Name).Interior.ColorIndex = 40
' Else
' Set d(F.Name) = .Range("b1")
'End If
End With
Next
'********************************************
'*** 如資料夾下有子資料夾再呼叫這副.程式 ***
'呼叫程式本身的迴圈 ***
'********************************************
For Each f In Fs.GetFolder(資料夾).SubFolders 'SubFolders(物件):資料夾集合
資料夾_副程式 f & ""
Next
End Sub
Private Sub 檔案物件_副程式(f As Object, Rng As Range)
With Rng
.Range("a1") = f.ParentFolder '傳回指定檔案或資料夾的父資料夾物件。
.Range("b1") = f.Name
.Hyperlinks.Add Anchor:=.Range("b1"), Address:=f
.Range("c1") = Fs.GetExtensionName(f) '傳回檔案的副檔名
.Range("d1") = f.Size / 1024
.Range("e1") = f.DateCreated '檔案或資料夾的建立日期和時間
.Range("F1") = f.DateLastAccessed '檔案最後一次存取指定檔案或資料夾的日期和時間
End With
End Sub
Private Sub 字典物件_副程式(f As Object, Rng As Range)
If d.Exists(f.Name) Then
Set d(f.Name) = Union(d(f.Name), Rng)
d(f.Name).Interior.ColorIndex = 40
Else
Set d(f.Name) = Rng
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.