f = Dir(file(1) & "*.xlsx") '通配符*.*表示所有文件,*.xlsx Excel文件Do Until f = "" 'Range("a" & x) = f Range("a" & x).Hyperlinks.
確定! 回上一頁