📄 2989.html
字号:
<html>
<head>
<title>用VB开EXCEL档,并写入会何出现错误</title>
</head>
<BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
<center>
<h1>用VB开EXCEL档,并写入会何出现错误</h1>
</center>
<HR><p>
Posted by <a href="mailto:eyenet@itc.play.net">Peter</a> on May 27, 1998 at 04:59:24:<p>
Dim xbook As Excel.Workbook<br> Dim xapp As Excel.Application<br> <br> Set xapp = New Excel.Application<br> <br> xapp.Application.Workbooks.Open "d:\test\test1.xls"<br> <br> Set xbook = Workbooks.Application.Item(1) ==>此行为何有错?<br> <br> <br> With xapp.Worksheets("sheet1")<br> Worksheets(1).Cells(10, 5).Value = 10<br> End With<br> <br> <br> xbook.Save<br> xbook.Close<br> xapp.Quit<br> Set xapp = Nothing<br> Set xbook = Nothing<br> <br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2989-->
<!--top: 2997--><li><a href="2997.html"><b>当然不对</b></a> 小吴 <i>17:41:17 5/27/98</i>
(<!--responses: 2997-->1)
<ul><!--insert: 2997-->
<!--top: 3012--><li><a href="3012.html"><b>范例: vb6 连上Excel </b></a> 陈进富 <i>01:02:43 5/29/98</i>
(<!--responses: 3012-->0)
<ul><!--insert: 3012-->
</ul><!--end: 3012-->
</ul><!--end: 2997-->
</ul><!--end: 2989-->
<br><HR><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -