【VBA入门点滴】打开局网其他电脑共享文件夹，vba比网上邻居快

hhzjxss

<p><font size="4">我发现，在用网上邻居打开单位局域网上的网上邻居中的电脑时，太慢，</font></p><p><font size="4">而用下面的代码打开好快的，所以我现在都用他们打开别人的电脑！</font></p><p><font size="4">大家不妨试试！</font></p><p>Sub打开网其他电脑共享文件夹()</p><p>&nbsp;&nbsp;&nbsp; ret = Shell("explorer.exe \\打印室\SharedDocs", vbNormalFocus)'打印室，要修改成你要打开的局网上的电脑名</p><p><br/>End Sub</p>

[此贴子已经被作者于2007-12-18 0:40:11编辑过]

hxqzccct

<p>是不是只限于，EXCEL表格啊？</p><p></p>

白海豚

<p>Sub打开网其他电脑共享文件夹()</p><p>&nbsp;&nbsp;&nbsp; ret = Shell("explorer.exe \\打印室\SharedDocs", vbNormalFocus)'打印室，要修改成你要打开的局网上的电脑名</p><p><br/>End Sub</p><p>解释一下好吗？？“explorer.exe \\打印室\SharedDocs”是计算机名吗？</p><p></p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hxqzccct</i>在2007-7-28 17:20:42的发言：</b><br/><p>是不是只限于，EXCEL表格啊？</p><p></p></div><p>不是，是以资源管理器方式打开对方电脑的共享文件夹，然后你想打开那个文件由你决定！</p>

hxqzccct

<p>哦 </p><p>&nbsp; 谢谢 </p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>白海豚</i>在2007-7-28 17:26:09的发言：</b><br/><p>Sub打开网其他电脑共享文件夹()</p><p>&nbsp;&nbsp;&nbsp; ret = Shell("explorer.exe \\打印室\SharedDocs", vbNormalFocus)'打印室，要修改成你要打开的局网上的电脑名</p><p><br/>End Sub</p><p>解释一下好吗？？“explorer.exe \\打印室\SharedDocs”是计算机名吗？</p><p></p></div><p>“打印室”我同事的电脑在网上邻居上的名字，你只要把它改成你同事电脑有网上邻居上用的名字就可以了！</p>

白海豚

<p>明白，，谢谢，，试试去。</p><p></p>

白海豚

哇，，真的好快呀。。。。。谢谢！~

hy6012

谢谢,试试看......

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>白海豚</i>在2007-7-28 17:38:37的发言：</b><br/>哇，，真的好快呀。。。。。谢谢！~</div><p></p><p>&nbsp;</p><p>就是，以前老是要等半天，现在一下子就打开了！</p>