excel 宏脚本开发小案例

在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