Workbooks.Open死活打不开呀，怎么办呀？

1055751654

各位老师好呀，问题又来了，lujing = ThisWorkbook.Path & "\出口信息表及采购合同新\出口信息表" & kk & ".xls*"Set wb = Workbooks.Open(lujing, 0)

就是这个后面啊，加个星星，就打不开，前面加等于*。xls 也打不开，不加就能打开，我就问：怎么才能打开，谢谢老师啦，

liulang0808

加*数打不开的，楼主可以使用dir或者fso确认下到底哪个文件的

1055751654

liulang0808 发表于 2020-11-25 12:01
加*数打不开的，楼主可以使用dir或者fso确认下到底哪个文件的

报告版主大大，文件已经指定了的，就是变量KK，InputBox打的KK，"出口信息表" & kk 就是文件名

liulang0808

1055751654 发表于 2020-11-25 12:18
报告版主大大，文件已经指定了的，就是变量KK，InputBox打的KK，"出口信息表" & kk 就是文件名

kk就是完整的路径名称？楼主上传模拟附件看看吧

yylucke

open打开，必须含路径的全名，且不能有星号，你的xls末尾有个星号。

奈何丶彼岸

open只能打开完全指定的文件，不能使用通配符。建议把文件夹内的文件名读取到数组，然后遍历，符合条件的打开该文件

dddw88

1.   lujing = ThisWorkbook.Path & "\出口信息表及采购合同新\出口信息表" & kk & ".xls*"
   
2.   filename = Dir(lujing)
   
3.   If filename <> "" Then
   
4.     lujing = ThisWorkbook.Path & "\出口信息表及采购合同新\" & filename
   
5.     Set wb = Workbooks.Open(lujing, 0)
   
6.   End If

复制代码

1055751654

dddw88 发表于 2020-11-25 15:42

人才呀，谢谢老师

ning84

Sub lll()
   Dim Sht As Worksheet
   Dim Rng As Range
        Set Sht = Sheet1
        ''Debug.Print Sht.Cells.Rows.Count
        Set Rng = Sht.Range("B1:AZ65536")
        Rng.Clear
        Sht.Cells.Font.Size = 9
        Rr = Sht.Range("A6566").End(xlUp).Row
        Rr = 5
        Set Rng = Sht.Cells(Rr, 1)
        TraverserJPG Rng, ThisWorkbook.Path
End Sub

Function TraverserJPG(Rng As Range, Path)
   Dim xlWk As Workbook
   Dim xlSht As Worksheet
       Set xlWk = ConnectWk("F:\日出日落时间\中国东西南北城市.xlsm")


    Dim Sht As Worksheet
    Dim Fso As Scripting.FileSystemObject
    Dim oFile As File, oFilesAs As Files
    Dim oFolder As Folder
    Dim Img As WIA.ImageFile
    Dim oDate As Date
    Dim Rr, Cc
    Dim Str
        Set Img = New WIA.ImageFile
        Set Sht = Rng.Parent
        Set xlSht = xlWk.Worksheets("珠海") 'Sht.Cells(Rng.Row, 1))
        Rr = Rng.Row + 2
        Cc = 2
        Set Fso = New Scripting.FileSystemObject
        Set oFolder = Fso.GetFolder(Path)
        ''
        For Each oFile In oFolder.Files
            If InStr(oFile.Type, "JPEG") > 0 Then
               With Sht
                   Img.LoadFile oFile.Path
                   '.Cells(Rr, Cc + 1) = oFile.Name
                   'Debug.Print oFile.Name, oFile.ParentFolder.Name, oFile.ParentFolder.ShortPath
                   .Cells(Rr, Cc + 9) = oFile.DateLastModified
                   'Str = oFile.DateLastModified
                   oDate = .Cells(Rr, Cc + 9)
                   Str = Format(oDate, "yyyy年m月d日") & _
                         Format(oDate, "[$-zh-CN]aaaa;@") & Format(oDate, "hh:mm:ss") '",全年过去" & DatePart("y", oDate, vbUseSystemDayOfWeek)
                   .Cells(Rr, Cc + 1) = Str
                   .Cells(Rr, Cc + 2) = GetYLDate(oFile.DateLastModified)
                   .Cells(Rr, Cc + 6) = oFile.Name
                   .Cells(Rr, Cc + 3) = Format(Int(oFile.Size / 1024), "0,000")
                   .Cells(Rr, Cc + 7) = "\" & oFile.ParentFolder.Name & "\"
                   .Cells(Rr, Cc + 4) = Img.Width
                   .Cells(Rr, Cc + 5) = Img.Height
                   .Cells(Rr, Cc + 8) = oFile.Type
                   .Cells(Rr, Cc + 12) = oFile.Path
                   .Cells(Rr, Cc + 13) = Img.Width
                   .Cells(Rr, Cc + 14) = Img.Height

               End With
            End If
            Rr = Rr + 1
        Next oFile
        Set Rng = Sht.Cells(Rr + 2, 1)
        ''
        For Each oFolder In oFolder.SubFolders
             TraverserJPG Rng, oFolder.Path
        Next oFolder
        xlWk.Close
End Function

cjc209

你是人才 你想模糊打开 open 只能打开明确的全路径的文件啊 我的歌