subject_53812.htm

vc

<p>
序号：53812 发表者：seameng 发表日期：2003-09-23 12:35:11
<br>主题：怎么访问excel表？
<br>内容：我想用vc访问excel表中的字串，哪位大虾帮帮忙，给点指导，不胜感激！！！！！[e-mail]
<br><a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p>
<hr size=1>
<blockquote><p>
回复者：淡淡 回复日期：2003-09-24 09:01:31
<br>内容：&lt;BLOCKQUOTE&gt;引用“楼主”所言<BR>&lt;Q&gt;我想用vc访问excel表中的字串，哪位大虾帮帮忙，给点指导，不胜感激！！！！！[e-mail]&lt;/Q&gt;&lt;/BLOCKQUOTE&gt;<BR><BR>你在摊子里搜一下，原来就有这样的问题<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>
回复者：lijb 回复日期：2003-09-25 10:45:49
<br>内容：用COM直接操作EXCEL。
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
<font color=red>答案被接受</font><br>回复者：hhhyyy 回复日期：2003-09-25 17:27:55
<br>内容：如下代码可简单实现<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;CDatabase database;<BR>&nbsp;&nbsp;&nbsp;&nbsp;CString sDriver;<BR>&nbsp;&nbsp;&nbsp;&nbsp;CString sDsn;<BR>&nbsp;&nbsp;&nbsp;&nbsp;CString sFile = &#34;c:\\test.xls&#34;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // 将被读取的Excel文件名<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;sDriver=&#34;Microsoft Excel Driver (*.xls)&#34;;<BR>&nbsp;&nbsp;&nbsp;&nbsp;// 创建进行存取的字符串<BR>&nbsp;&nbsp;&nbsp;&nbsp;sDsn.Format(&#34;ODBC;DRIVER={%s};DSN='';DBQ=%s&#34;, sDriver, sFile);<BR>&nbsp;&nbsp;&nbsp;&nbsp;TRY<BR>&nbsp;&nbsp;&nbsp;&nbsp;{<BR>&nbsp;&nbsp;&nbsp;&nbsp;database.Open(NULL, false, false, sDsn);&nbsp;&nbsp;// 打开数据库(既Excel文件)<BR>&nbsp;&nbsp;&nbsp;&nbsp;CRecordset recset(&amp;database);<BR>&nbsp;&nbsp;&nbsp;&nbsp;CString sSql = &#34;SELECT * FROM test &#34;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;// 设置读取的查询语句.<BR>&nbsp;&nbsp;&nbsp;&nbsp;recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);<BR>&nbsp;&nbsp;&nbsp;&nbsp;CString strValue,temp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;_variant_t RecordsAffected;<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;int fieldNumber=recset.GetODBCFieldCount( )-1;&nbsp;&nbsp; //字段数目<BR>&nbsp;&nbsp;&nbsp;&nbsp;while (!recset.IsEOF())&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;// 获取查询结果<BR>&nbsp;&nbsp;&nbsp;&nbsp;{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(int i=0;i&lt;fieldNumber;i++)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;recset.GetFieldValue(i,(CString&amp;)strValue );<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;temp=temp+&#34;,'&#34;+strValue;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;recset.MoveNext(); // 移到下一行<BR>&nbsp;&nbsp;&nbsp;&nbsp;}<BR>&nbsp;&nbsp;&nbsp;&nbsp;database.Close();&nbsp;&nbsp;// 关闭数据库<BR>&nbsp;&nbsp;&nbsp;&nbsp;}<BR>&nbsp;&nbsp;&nbsp;&nbsp;CATCH(CDBException, e)<BR>&nbsp;&nbsp;&nbsp;&nbsp;{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AfxMessageBox(&#34;数据库错误: &#34; + e-&gt;m_strError);&nbsp;&nbsp; <BR>&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>