在excel中开发宏:
private sub commandbutton1_click()
insert_sql=""
pathfile="D:\clean_insert.sql"
RowCount=Worksheets("sheet名称").UsedRange.Rows.Count '读取行数
for num=2 to RowCount
col1=trim(worksheets("sheet名称").cells(num,1).value)
col2=trim(worksheets("sheet名称").cells(num,2).value)
.
.
.
insert_sql=insert_sql & "" & chr(10)
next num
set FSO=CreateObject("scripting.FileSystemObject")
set file=FSO.createTextFile(pathfile,true)
file.Writeline(insert_sql)
file.close
msgbox "文件生成成功D:\clean_insert.sql"
end sub
private sub commandbutton1_click()
insert_sql=""
pathfile="D:\clean_insert.sql"
RowCount=Worksheets("sheet名称").UsedRange.Rows.Count '读取行数
for num=2 to RowCount
col1=trim(worksheets("sheet名称").cells(num,1).value)
col2=trim(worksheets("sheet名称").cells(num,2).value)
.
.
.
insert_sql=insert_sql & "" & chr(10)
next num
set FSO=CreateObject("scripting.FileSystemObject")
set file=FSO.createTextFile(pathfile,true)
file.Writeline(insert_sql)
file.close
msgbox "文件生成成功D:\clean_insert.sql"
end sub