从 Excel 文件生成 SQL 脚本（带有多个工作表）

Question

How can we generate SQL scripts (Delete and Update) based on a column, say A , value in Excel sheet .

Logic runs like this:

1. If value in A column is Yes, generate a Delete SQL statement for every row which as value in Column A as Yes, otherwise generate a Update SQL statement.

2. Generated SQL script should be automatically saved in a text file/notepad.

Answer 1

1. ask google how to use vba
2. ask google to find out how to read append and delete text files:)
3. ask google for SQL tutorials
4. as google how to execute sql files for your server

To give you a kick start - this works in principle like this:

Function filewrite(ByRef FILE, ByRef TEXT As String) As long
  ERR.CLEAR
  On Error Resume Next
  Dim FF As Long
  FF = FreeFile()
  On Error Resume Next
  Open FILE For Output As #FF
  Print #FF, TEXT
  Close #FF
  filewrite = ERR.NUMBER
  On Error GoTo 0
  ERR.CLEAR
End Function

sub create_delete_statements(tablename)
   dim SQL as  string
   Dim WS As Excel.Worksheet
   Dim WB As Excel.Workbook

open xyz.xls if needed

   Set WB = AP.Workbooks.Open("Unknown.xls") 

chooses a workbook from "Unknown.xls" this will work also same way if you want to use "Sheet2" eg Set WS = WB.Worksheets("Sheet2")

   Set WS = WB.Worksheets("Sheet1") 

   for i=0 to 10
        if ws.Cell(i,1).value=-1 then ''use "Sheet1"
             databaseid=ws.Cell(i,2).value  
             SQL=SQL & "DELETE FROM TABLE " & tablename & "where id =" & databaseid & ";" & vblf
        endif
   next 
   dim FN as string
   on error resume next
   err.clear
   fn="commands.sql" 

kill /delete the old sql file if it exists

   if dir(fn)<>"" kill(fn)

pump your statements out

   fresult= filewrite(fn,SQL) 
   if err.number + fresult <> 0 msgbox "Something went wrong on file out"
end sub

Have fun:)