- 博客(8)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 在outlook 中打开excel 并运行宏
<br />Function MakeVBR(vbrBook As String)<br /> <br /> Dim xlApp As Excel.Application<br /> Set xlApp = New Excel.Application<br /> <br /> xlApp.Visible = True<br /> Dim xlBook As Workbook<br /> Set xlBook = xlApp.Workbooks.Open(vbrBoo
2010-11-25 11:26:00
1868
原创 运行带宏的excel
<br />Function GetExportInfo()<br /> Dim xl As excel.Workbooks<br /> <br /> <br /> Set xl = excel.Workbooks<br /> xl.Open ("路径")<br /> <br /> xl.Application.Run ("文件名!宏名")<br /> excel.Application.Visible = True<br /> <br /> <br />E
2010-10-30 15:58:00
495
原创 VBA 搜索共享资源
<br />'添加引用 Windows Script Host Object Model<br />Sub SearchShared()<br /> Dim a As WshNetwork<br /> Dim oPrinter As WshCollection<br /> Set a = New WshNetwork<br /> Set oPrinter = a.EnumPrinterConnections<br /> Debug.Print "Network printer mappi
2010-10-19 16:59:00
504
原创 VBA 下载图片到word
<br />如果你需要到网上下载图片到Word文档,下面的代码可以帮到你<br />首先添加引用 "Microsoft WinHTTP Services,vesion <br /> <br />Sub htmlCopyLoadPicture()<br /> Dim WinHttpReg As WinHttp.WinHttpRequest<br /> <br /> ' Dim myArr() As String<br /> 'Dim i As Long<br /> Dim d() A
2010-10-15 15:39:00
992
原创 VBA文件操作
VBA可以添加应用vbs 脚本Microsoft Scripting Runtime. Sub Dim f as FileSystemObject Dim a as File Set a=f.GetFile(path) ....可以访问a文件获得相关信息如隐藏，共享，可读写。End sub dim c set c=
2010-04-24 09:47:00
530
原创 VBA,VB 自动登录网站
很多时候大家都需要登录网站， 查询一下信息。可不可以在office中登录呢？可以，用VBA即可。需要添加到引用 Microsoft Internet Controls Microsoft HTML Object Library Sub loginRenRen() Dim ie As InternetExplorer Dim doc As HTMLDocume
2010-04-18 11:46:00
6213
1
原创 Access 中启动带宏的excel
在access 中打开excel，先要添加对excel的引用。代码如下：Sub myt() Dim xl As excel.Workbooks excel.Application.Visible = True Set xl = excel.Workbooks xl.Open "D:/workfile/MWbalance/mwbalance.xls"End Sub
2010-04-18 11:08:00
945
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人