s & "" '导入表名 连接空白是避免表格名为数值时格式不同
If Dir(fp, 16) = Empty Then Exit Function '路径不存在不运行
c = 1 '默认1,表不存在时默认用第一行决定填充公式行数...If Right(fp, Len(fp) - InStrRev(fp, ".")) = "csv" Then 'csv文件导入
If 表存在(s) Then
v1 = Split...End If
Else '非csv文件导入
Set wb = Workbooks.Open(fp) '打开文件
Range([A:A], [A:A].End(xlToRight...csv导入(fp, rg, Optional ACW) 'fp导入文件路径,rg导入单元格位置,ACW调整列宽
If IsMissing(ACW) Then ACW = Flase
If Dir(fp...Sub表示过程,在执行宏或图形右击指定宏中看得到,不能返回值
Call 函数名(Array(1, 2), b) '调用过程并把返回值放入r
End Sub '结束过程
Function 函数名(a, Optional