如何提取工作簿的名称

高玉甫

9楼 zhaogang1960 先生，您好！
    您太高明了，您的代码解决了我的实际问题，谢谢您！
可是，文件夹中我放进去一个“doc” 文件，这个“doc”文件就没有被编辑在文件的目录中，为什么？能给我解释一下吗？难道这个代码只能对EXCEL工作薄有效？能否编出适合所有文件的代码？

zhaogang1960

楼主的原意就是只能对工作簿，把下面的语句修改一下就可以了：
myFile = Dir(myPath & "*.xls")改为：myFile = Dir(myPath & "*.*")

高玉甫

12楼 zhaogang1960 先生，您好！
     太神气了，我的问题被您彻底解决了，谢谢您，大侠。

高玉甫

您在 9 楼的代码太好了，再加上您在 12 楼的补充就太棒了，佩服之极。不过我想，如果在代码中再加上一句“在 C 列相应的单元格同时自动生成文件被纳入这个文件登记表的当时日期”就更外漂亮了，能在辛苦一下帮忙到底吗？该不会嫌我“贪得无厌”吧？谢谢您，在帮一次吧。

zhaogang1960

好像没有意义，因为这个程序是Open事件，就是每次打开工作簿是都要运行一次，这样就会覆盖原来的日期：
Private Sub Workbook_Open()
    Dim myPath$, myFile$, m As Integer
    Application.ScreenUpdating = False
    myPath = ThisWorkbook.Path & "\"
    myFile = Dir(myPath & "*.*")
    m = 1
    With Sheets("02")
        .UsedRange.Offset(1, 0).Clear
        Do While myFile <> ""
            If myFile <> ThisWorkbook.Name Then
                m = m + 1
                .Hyperlinks.Add Anchor:=.Cells(m, 2), Address:=myPath & myFile, TextToDisplay:=Split(myFile, ".")(0)
            End If
            myFile = Dir
        Loop
        .Range("A2").Value = 1
        If m > 2 Then .Range("A2").AutoFill Destination:=.Range("A2").Resize(m - 1), Type:=xlFillSeries
        .Range("C2").Resize(m - 1) = Date'C 列写日期
    End With
    Application.ScreenUpdating = True
End Sub

高玉甫

15楼 zhaogang1960  先生，谢谢您不厌其烦地指导，谢谢您，大侠。

高玉甫

15楼 zhaogang1960 先生，您好！
    还是要打扰您，在 15 楼的代码中，有一句 With Sheets("02")，其中，"02 "是当前工作表的名称，能否将"02 "换成通用性的什么字符呢？否则，如果工作表的名称改变了，这个代码里的，"02 "也要修改，不是太麻烦吗？弄不好还会造成错误，所以，请大侠在赐教一下吧，把，"02 "改为通用性的代码，谢谢您。

zhaogang1960

这个代码是Open事件，当工作簿打开时响应，工作簿并不知道你要在哪一个工作表中进行操作，那就必须指定一个，如果能确保生成超链接的工作表代码名是Sheet2，可以使用：
With Sheet2，这就与修改工作表名无关了

高玉甫

18楼 zhaogang1960  先生，谢谢您的指教，谢谢了。

szqhb

原帖由 wangzhongtu 于 2009-10-3 11:31 发表
哇高手都来   光临过啦   太棒了   
有人说2楼的代码有重复   我看了下 提出问题的朋友 是这样认为的:   第一次执行命令时非常成功  ,第二次执行命令时会在原复制好的名称下面重新再复制一遍,
即点N次就会出现同一 ...

对，就是这个意思