导入导出

[qq_38115572]

怎么导入导出。。。。。。。。。。。。。。。。。。。

[buzhunmeiyouni]

Private Sub Command1_Click() Dim strconn As String Dim cn As ADODB.Connection Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim tmppath As String Dim data(1 To 256, 1 To 900) As Single Dim datatmp As Variant Dim i As Long, j As Long Set cn = New ADODB.Connection CommonDialog1.Filter = "All Files (*.*)|*.*|excel Files" & _ "(*.xls)|*.xls|excel Files (*.xlsx)|*.xlsx" CommonDialog1.DialogTitle = "请选择要导入的文件" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub 'trconn = "provider=microsoft.ace.oledb.4.0;data source=" & CommonDialog1.FileName & ";extended properties=excel 8.0" If UCase(Right(ExcelFileAddress, 4)) = UCase(".xls") Then strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';Persist Security Info=False" Else strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1';Persist Security Info=False" End If cn.Open strconn