Sub 手动导入表()
selectfiles = Application.GetOpenFilename("," & "....(selectfiles(fi), 路径文件名(selectfiles(fi)))
Next
开启功能
End Sub
Function 导入表(fp, s) 'fp导入文件路径,s导入表名
s =...If Right(fp, Len(fp) - InStrRev(fp, ".")) = "csv" Then 'csv文件导入
If 表存在(s) Then
v1 = Split...(Sheets.Count)
ActiveSheet.Name = s
Call csv导入(fp, Selection, True) '防止数值大于15位时丢失精度所以用导入...(fp, rg, Optional ACW) 'fp导入文件路径,rg导入单元格位置,ACW调整列宽
If IsMissing(ACW) Then ACW = Flase
If Dir(fp, 16