vba data to input tool

标签：val   name   tool   ext   value   row   trunc   cell   dll   

public Sub InserDb()

dim maxrow as integer

dim maxcol as integer

dim ddl as string

dim recode as string

dim recodes as string

dim sheetname as string

dim tablename as string

sheetname = "data"

tablename  = sheets(sheetname).cells(1,2).value

maxrow = sheets(sheetname).cells(rows.count,1).end(xlup).row

maxcol = sheets(sheetname).cells(2,columns.count).end(xltoleft).column

for i = 1 to maxcol

　　if i = 1 then

　　　　ddl = sheets(sheetname).cells(2,i).value

　　else

　　　　ddl = ddl + "," + sheets(sheetname).cells(2,i).value

　　end if

next

for j = 3 to maxrow

　　for k = 1 to maxcol

　　　　if k = 1 then

　　　　　　recode = "(" & "‘" & sheets(sheetname).cells(j,k).value & "‘"

　　　　else

　　　　　　if sheets(sheetname).cells(j,k).value = "" then

　　　　　　　　recode = recode & "," & "NULL"

　　　　　　else

　　　　　　　　recode = recode & "," & "‘" & sheets(sheetname).cells(j,k).value & "‘"

　　　　　　end if

　　　　end if

　　next

　　sheets("output").cells(j-1,1).value = "insert into" & tablename & "(" & dll & ")" & "values" & recode + ");"

next

sheets("output").cells(1,1).value = "TRUNCATE" & tablename & ";"

sheets("output").select

end sub

vba data to input tool

标签：val   name   tool   ext   value   row   trunc   cell   dll   

原文地址：https://www.cnblogs.com/rinseisyun/p/10624975.html