⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 2989.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.
💻 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 + -