ASP里能调用VB语言吗？
我做ASP网站的，我想用ASP操作EXCEL文件，可是ASP好像不能完全实现我操作EXCEL的功能。所以我想，VB在ASP环境里能否调用，并且用它操作EXCEL文件。附：...
我做ASP网站的，我想用ASP操作EXCEL文件，可是ASP好像不能完全实现我操作EXCEL的功能。所以我想，VB在ASP环境里能否调用，并且用它操作EXCEL文件。
附：主要是想对EXCEL数据做分列命令。
我在EXCEL里用宏录制了这个过程的命令。命令如下
Sub Macro1()
Columns("C:E").Select
Selection.Insert Shift:=xlToRight
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="*", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Columns("B:D").Select
Selection.ColumnWidth = 6.75
Range("B1").Select
ActiveCell.FormulaR1C1 = "厚度"
Range("C1").Select
ActiveCell.FormulaR1C1 = "宽度"
Range("D1").Select
ActiveCell.FormulaR1C1 = "长度"
Range("C5").Select
End Sub
请问，这个过程，如保在ASP里调用。如果朋友有空的话，请附上代码。包括ASP打开EXCEL对象的代码。谢谢 展开
附：主要是想对EXCEL数据做分列命令。
我在EXCEL里用宏录制了这个过程的命令。命令如下
Sub Macro1()
Columns("C:E").Select
Selection.Insert Shift:=xlToRight
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="*", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Columns("B:D").Select
Selection.ColumnWidth = 6.75
Range("B1").Select
ActiveCell.FormulaR1C1 = "厚度"
Range("C1").Select
ActiveCell.FormulaR1C1 = "宽度"
Range("D1").Select
ActiveCell.FormulaR1C1 = "长度"
Range("C5").Select
End Sub
请问，这个过程，如保在ASP里调用。如果朋友有空的话，请附上代码。包括ASP打开EXCEL对象的代码。谢谢 展开
2个回答
展开全部
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/modcore/html/deovrusingcellsproperty.asp
你可以参看这个地方。EXCEL的结构就分APPLICATION，WORKBOOK，WORKSHEET和RANGE，根据这个结构一层一层的创建对象，操作对象的属性和方法。了解这个结构后编码是很简单的。
asp建立EXCEL对象采取VB组件方式更好，便于资源释放。因为自动对象的创建有BUG。
你可能不明白的地方应该就是:=这个符号。这个是参数的设定符号，你在VB里面调用的时候，写全函数名称就可以了。比如函数A的形式为
A(byval ParamA as string,byval paramB as string,byval paramC as string)
宏里面是写为
A ParamA:="A",ParamC:="C"
你只要改为
A("A","","C")
就可以调用了。
我给你讲的弄明白，以后EXCEL都难不倒你。
----------
给你一个我以前写的JAVASCRIPT的，VBSCRIPT其实类似，语法稍微不同而已。
new ActiveXObject 换为createObject
----------\
再一次建议写在VB组件里面，自己写一个VB的DLL，然后通过server.createObject创建组件。
-------------
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=shift-jis">
<script>
function out(){
try{
var elTable = document.getElementById("out");
var oRangeRef = document.body.createTextRange();
oRangeRef.moveToElementText( elTable );
oRangeRef.execCommand( "Copy" );
var oXL = new ActiveXObject("Excel.Application")
var oWB = oXL.Workbooks.Add ;
var oSheet = oWB.ActiveSheet ;
oSheet.Paste();
oSheet.Cells.NumberFormatLocal = "@";
oSheet.Columns("D:D").Select
oXL.Selection.ColumnWidth = 20
//oSheet.Columns("A:A").Select
//oSheet.Columns("A").Width = 1000;
oSheet.Hyperlinks.Add(oSheet.Range("F14"), "http://www.sina.com.cn", "", "", "sina")
oXL.Visible = true;
oSheet = null;
oWB = null;
appExcel = null;
}catch(e){alert(e.description)}
}
</script>
</head>
<body>
<table id ='out'>
<tr>
<td x:str bgcolor="#FF0000">00001</td>
<td x:str>0002</td>
</tr>
<tr>
<td height=18 align=right style='height:13.5pt' x:str>00001</td>
<td align=right x:str>000002</td>
</tr>
<tr>
<td x:str>拞暥</td>
<td x:str>侦傎傫偛担杮岅</td>
</tr>
</table>
<INPUT type="button" value="Button" id=button1 name=button1 onclick="out()">
</body>
</html>
你可以参看这个地方。EXCEL的结构就分APPLICATION，WORKBOOK，WORKSHEET和RANGE，根据这个结构一层一层的创建对象，操作对象的属性和方法。了解这个结构后编码是很简单的。
asp建立EXCEL对象采取VB组件方式更好，便于资源释放。因为自动对象的创建有BUG。
你可能不明白的地方应该就是:=这个符号。这个是参数的设定符号，你在VB里面调用的时候，写全函数名称就可以了。比如函数A的形式为
A(byval ParamA as string,byval paramB as string,byval paramC as string)
宏里面是写为
A ParamA:="A",ParamC:="C"
你只要改为
A("A","","C")
就可以调用了。
我给你讲的弄明白，以后EXCEL都难不倒你。
----------
给你一个我以前写的JAVASCRIPT的，VBSCRIPT其实类似，语法稍微不同而已。
new ActiveXObject 换为createObject
----------\
再一次建议写在VB组件里面，自己写一个VB的DLL，然后通过server.createObject创建组件。
-------------
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=shift-jis">
<script>
function out(){
try{
var elTable = document.getElementById("out");
var oRangeRef = document.body.createTextRange();
oRangeRef.moveToElementText( elTable );
oRangeRef.execCommand( "Copy" );
var oXL = new ActiveXObject("Excel.Application")
var oWB = oXL.Workbooks.Add ;
var oSheet = oWB.ActiveSheet ;
oSheet.Paste();
oSheet.Cells.NumberFormatLocal = "@";
oSheet.Columns("D:D").Select
oXL.Selection.ColumnWidth = 20
//oSheet.Columns("A:A").Select
//oSheet.Columns("A").Width = 1000;
oSheet.Hyperlinks.Add(oSheet.Range("F14"), "http://www.sina.com.cn", "", "", "sina")
oXL.Visible = true;
oSheet = null;
oWB = null;
appExcel = null;
}catch(e){alert(e.description)}
}
</script>
</head>
<body>
<table id ='out'>
<tr>
<td x:str bgcolor="#FF0000">00001</td>
<td x:str>0002</td>
</tr>
<tr>
<td height=18 align=right style='height:13.5pt' x:str>00001</td>
<td align=right x:str>000002</td>
</tr>
<tr>
<td x:str>拞暥</td>
<td x:str>侦傎傫偛担杮岅</td>
</tr>
</table>
<INPUT type="button" value="Button" id=button1 name=button1 onclick="out()">
</body>
</html>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
·用VB做成ActiveX DLL组件
·在服务器注册组件(regsvr32 <path>)
·在ASP里调用组件功能
例：
set myExcel = server.createObject("你的组件工程名称")
myExcel.doSomeThing('rows');
'....
set myExcel=nothing
补充：
ASP操作Excel技术总结
http://www.cndw.com/tech/asp/200602153013.asp
http://www.yx520.net/xy/hp/Asp/11382.html
自动调用宏的方法
Excel.Application.xlApp.Workbooks.Open(exlSrc).RunAutoMacros()
·在服务器注册组件(regsvr32 <path>)
·在ASP里调用组件功能
例：
set myExcel = server.createObject("你的组件工程名称")
myExcel.doSomeThing('rows');
'....
set myExcel=nothing
补充：
ASP操作Excel技术总结
http://www.cndw.com/tech/asp/200602153013.asp
http://www.yx520.net/xy/hp/Asp/11382.html
自动调用宏的方法
Excel.Application.xlApp.Workbooks.Open(exlSrc).RunAutoMacros()
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
