subject_66476.htm

vc

<p>
序号：66476 发表者：mwh 发表日期：2003-12-24 17:23:00
<br>主题：如何编写Excel程序文件
<br>内容：&nbsp;&nbsp;&nbsp;&nbsp;我欲编一个程序，从文本文件中读出数据后按要求写入Excel文件，但我从来没有这方面的经验，请各位大侠教教小弟应如何在程序中对Excel文件进行操作。
<br><a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p>
<hr size=1>
<blockquote><p>
<font color=red>答案被接受</font><br>回复者：wafer 回复日期：2003-12-24 17:33:54
<br>内容：可以利用VBScript。<BR><BR>下面是一段将Excel文件转换成txt文件的代码：<BR><BR><BR>Option Explicit<BR><BR>Const ConvertTool = &#34;Convert.xls&#34;<BR>Const ConvertFunc = &#34;Convert.xls!ConvertAll&#34;<BR><BR>'Main<BR>' or<BR>Convert &#34;Data&#34;, &#34;.\Data&#34;<BR><BR><BR>Sub Usage()<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim msg<BR>&nbsp;&nbsp;&nbsp;&nbsp;msg = &#34;Usage:&#34; &amp; Chr(13)<BR>&nbsp;&nbsp;&nbsp;&nbsp;msg = msg &amp; &#34;Convert &lt;InputFolder&gt; [&lt;OutputFolder&gt;]&#34; &amp; Chr(13) <BR>&nbsp;&nbsp;&nbsp;&nbsp;msg = msg &amp; &#34;Convert all Excel files in &lt;InputFolder&gt;, and save text files into &lt;OutputFolder&gt;&#34; &amp; Chr(13) <BR>&nbsp;&nbsp;&nbsp;&nbsp;msg = msg &amp; &#34;Default &lt;OutputFolder&gt; = &lt;InputFolder&gt;&#34;<BR>&nbsp;&nbsp;&nbsp;&nbsp;MsgBox msg<BR>End Sub<BR><BR>Sub Main()<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim SrcFolder, DstFolder<BR>&nbsp;&nbsp;&nbsp;&nbsp;If WScript.Arguments.Count &gt; 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SrcFolder = WScript.Arguments(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If WScript.Arguments.Count &gt; 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DstFolder = WScript.Arguments(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DstFolder = SrcFolder<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Usage<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;End If<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;Convert SrcFolder, DstFolder<BR>End Sub<BR><BR>Sub Convert(SrcFolder, DstFolder)<BR>&nbsp;&nbsp;&nbsp;&nbsp;SrcFolder = AbsPath(SrcFolder)<BR>&nbsp;&nbsp;&nbsp;&nbsp;DstFolder = AbsPath(DstFolder)<BR>&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim xlApp<BR>&nbsp;&nbsp;&nbsp;&nbsp;Set xlApp = CreateObject(&#34;Excel.Application&#34;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;xlApp.Workbooks.Open GetCurrentPath() &amp; ConvertTool<BR>&nbsp;&nbsp;&nbsp;&nbsp;xlApp.Run ConvertFunc, CStr(SrcFolder), CStr(DstFolder)<BR>&nbsp;&nbsp;&nbsp;&nbsp;xlApp.Quit<BR>End Sub<BR><BR>Function AbsPath(path)<BR>&nbsp;&nbsp;&nbsp;&nbsp;If Mid(path, 1, 1) = &#34;\&#34; Or Mid(path, 2, 1) = &#34;:&#34; Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AbsPath = path<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit Function<BR>&nbsp;&nbsp;&nbsp;&nbsp;End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;AbsPath = GetCurrentPath() &amp; path<BR>End Function<BR><BR>Function GetCurrentPath()<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim path, pos<BR>&nbsp;&nbsp;&nbsp;&nbsp;path = WScript.ScriptFullName<BR>&nbsp;&nbsp;&nbsp;&nbsp;pos = InStrRev(path, &#34;\&#34;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;GetCurrentPath = Left(path, pos)<BR>End Function<BR>
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：michael 回复日期：2003-12-24 18:04:52
<br>内容：&nbsp;&nbsp; 用DAO编程使用微软Data Jet数据引擎向xls里写数据。
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：mwh 回复日期：2003-12-25 10:01:53
<br>内容：应如何使用data jet引擎，能否更详细说明，谢谢
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>