百分求助，高手收进

[underone]

求一将SQL导入到EXCEL和一将EXCEL的数据导入到SQL中的类或者函数源文件,越具体越好

分不够还可以再给

[mrshelly]

那要看EXCEL的数据组成情况了。
复杂些的表格 脚本是无能为力的。除非人工智能。~~~~~~~~
如果是规范表格的话，在WIN32系统下应该比较好解决。

[underone]

看不懂

[king2003]

这东西限制很死的如果你要倒的话当然也可以但是每个字段都和对应起来.很是麻烦.我曾经搞过E2S的.

[underone]

有没有类似的源码啊
让我看看

[muziruyue]

你直接转化就可以了

[underone]

我也知道能直接转化，但是要在页面上处理

[mymyal123]

SQL的企业管理器不就能实现你说的功能吗？

[Zygodactyous]

用SQL的数据导入、导出来操作

[underone]

要在页面上实现

[underone]

操作

[underone]

UP

[philcc]

你读出到页面在导入到excel不就行了！

[philcc]

<TABLE id="outtable" name="outtable">
<TR>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
</TR>
<TR>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
</TR>
<TR>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
</TR>
<TR>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
<TD>asdf</TD>
</TR>
</TABLE>
<input type="button" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint">
<SCRIPT LANGUAGE="javascript">
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var hang = outtable.rows.length;

var lie = outtable.rows(0).cells.length;

for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = outtable.rows(i).cells(j).innerText;
}

}
oXL.Visible = true;
oXL.UserControl = true;
}
</SCRIPT>

<SCRIPT LANGUAGE="javascript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.music; 'outtable为需要导出的表的ID
var hang = table.rows.length;

var lie = table.rows(0).cells.length;

// Add table headers going cell by cell.
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}

}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>



这个代码对你有用吧！

[yiran700]

<title>浏览器表格导出到Excel</title>
<input type="button" name="out_word1" onclick="javascript:AutomateExcel() " value="导出到excel" class="notPrint">


<table id="data" width="200" border="1">
<tr>
<td>11</td>
<td>11</td>
</tr>
<tr>
<td>22</td>
<td>22</td>
</tr>
<tr>
<td>33</td>
<td>33</td>
</tr>
<tr>
<td>44　</td>
<td>44</td>
</tr>
</table>


<SCRIPT LANGUAGE="JavaScript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;

var lie = table.rows(0).cells.length;

// Add table headers going cell by cell.
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText;
}

}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>

[samsunglu]

Set objConn=server.CreateObject("adodb.connection")
objConn.ConnectionTimeout = 60
objConn.CommandTimeout = 60
objConn.CursorLocation = 3
objConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID = sa;Password=sa;Initial Catalog=" & SqlName & ";Data Source=" & SqlIp & ""

Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Provider = "Microsoft.Jet.OLEDB.4.0 "
objConn1.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
objConn1.Open

Set objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from sheet1",objConn,1,3

Set objRs1=server.CreateObject("ADODB.Recordset")
objRs1.Open "select * from [Sheet1$]",objConn1,1,3

Dim i
Dim strValue '存放内容
Dim strTitle '存放表头
Dim strSql

If Not objRs.EOF Then

While Not objRs.EOF
strTitle = objRs1(ExcelArrange).Name
For i = ExcelArrange + 1 To objRs1.Fields.Count - 1
strTitle = strTitle & "," & objRs1(i).Name
Next

strValue = "'" & objRs(0).Value & "'"
For i = 1 To objRs.Fields.Count - 1
strValue = strValue & ",'" & objRs(i).Value & "'"
Next

strSql = "insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & strPath1 & ";Extended properties=Excel 8.0')...sheet1$ (" & strTitle & ") values (" & strValue & ")"
Response.Write strSql
objConn.Execute strSql
objRs.MoveNext
i=i+1
Wend

End If




Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0 "
objConn.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
objConn.Open

Set objConn1=server.CreateObject("adodb.connection")
objConn1.ConnectionTimeout = 60
objConn1.CommandTimeout = 60
objConn1.CursorLocation = 3
objConn1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID = sa;Password=sa;Initial Catalog=" & SqlName & ";Data Source=" & SqlIp & ""

Set objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from [Sheet1$]",objConn,1,3

Set objRs1=server.CreateObject("ADODB.Recordset")
objRs1.Open "select * from sheet1",objConn1,1,3

Dim i
Dim strValue '存放内容
Dim strTitle '存放表头
Dim strSql

If Not objRs.EOF Then

While Not objRs.EOF
strTitle = objRs1(0).Name
For i = 1 To objRs1.Fields.Count - 1
strTitle = strTitle & "," & objRs1(i).Name
Next

strValue = "'" & objRs(ExcelArrange).Value & "'"
For i = ExcelArrange + 1 To objRs.Fields.Count - 1
strValue = strValue & ",'" & objRs(i).Value & "'"
Next

strSql="insert into sheet1 (" & strTitle & ") values (" & strValue & ")"
'Response.Write strSql
objConn1.Execute strSql
objRs.MoveNext
i=i+1
Wend

End If