把多个CSV文件加载到一个EXCEL文件

 

Option   Explicit

Const  path1  =   " C: emp "
Const  path2  =   " C: empCsvToExcel "
Const  sPattern  =   " *.csv "

Private   Sub  Form_Load()

On   Error   GoTo  err
Dim  xlApp  As   New  Excel.Application
Dim  xlBook  As  Excel.Workbook
Dim  xlSheet  As  Excel.Worksheet
Dim  xlSheet1  As  Excel.Worksheet


Dim  excelname  As   String
excelname  =   Replace (DateTime.Now,  " : " ,  " - " )  &