我做了一个按钮，按下按钮后，想要实现的是把一个excel表格删除，然后再重新加载这个表格到SQL，实现我在上位机上修改的这个表格的数据，可以导入到SQL中，但是这个程序仅仅是把表格删除，并没有重新加载，求大侠们帮小弟瞅瞅，多谢了~~表格的名字就是location 这个程序在wincc 7.0 sp1上可以实现，但是再sp3上就不行，难道跟DDE通讯有关？sp3已经没有DDE通讯了。


Sub UpdateLocation

Dim iRow
Dim arr
Dim Spreadsheet
Dim objExcelApp
Dim conn
Dim sCon
Dim sSql

Set Spreadsheet = ScreenItems("Spreadsheet1")
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open "D:\MC_Database\Location.xls"


iRow = Spreadsheet.Rows("A").Row

arr = Spreadsheet.Range("A:D").Value

objExcelApp.Range("A:D").Value = arr

objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit

Set objExcelApp = Nothing

Set conn = CreateObject("ADODB.Connection")
sCon = "Provider = SQLOLEDB.1; Integrated Security = SSPI; Persist Security Info = false; Initial Catalog = MC_CNPE; Data Source = .\WinCC"
conn.Connectionstring = sCon
conn.open

conn.Execute "drop table MC_Location"
sSql = "select * into MC_Location FROM OpenDataSource('MICROSOFT.JET.OLEDB.4.0','Data Source=D:\MC_Database\Location.xls;User ID=Admin;Password=;Extended properties=EXCEL 8.0')...[Location$]"
conn.Execute sSql

conn.close


End Sub