yxh1202 发表于 2010-6-9 15:29

vba按照路径方式打开文档

    能否用VBA语句打开想要使用的文档啊，比如eXCEL文件。就像windows打开文件一样，让用户选择路径的。我都研究了几天了，请高人指点啊，谢谢

yxr_MJTD 发表于 2010-6-10 13:47

<p>可以.</p>
<p><font face="Verdana">Dim objDBX As Object<br/>&nbsp;&nbsp;&nbsp;&nbsp; Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objDBX.Open filepath</font></p>
<p>&nbsp;&nbsp;&nbsp;&nbsp; <font face="Verdana">For S = 0 To objDBX.ModelSpace.Count - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set lineobject = objDBX.ModelSpace.Item(S)</font>&nbsp;&nbsp; </p>
<p>&nbsp;&nbsp;&nbsp; &nbsp;next</p>
<p>就可以了.</p>

yxh1202 发表于 2010-6-10 16:53

谢谢高手指点，但是怎么用啊
页: [1]
查看完整版本: vba按照路径方式打开文档