EXCEL VBA | ExcelOffice【微信公众号：水星Excel】

如何用vba获取excel的用户名?

2021年2月28日作者：水星Excel
976 次浏览暂无评论

每个office软件都有一个用户名，如下图所示：

要用vba获取这个用户名可以使用Application对象的UserName属性，代码如下：
[crayon-6151a3443d090228[……]

阅读全文>>>
VBA代码大全030：如何用vba强制关闭word进程？

2021年2月21日作者：水星Excel
1,473 次浏览暂无评论

我们有时候需要从word中提取数据到excel中。

这时候一般的套路都是在excel vba中创建word应用程序实例，然后一番操作以后关闭word应用程序。

[……]

阅读全文>>>
VBA代码大全026：如何用vba一键更新所有数据透视表?

2021年2月7日作者：水星Excel
1,201 次浏览暂无评论

本来还要继续讲剪贴板的，今天要穿插一个非常实用的代码。

这个问题是来自我的一个美女学生。

她由于做报表经常要做很多数据透视表。

然后每个月都要更新数据透视表的源数据，就涉及到数据透视表的更新[……]

阅读全文>>>

趣味互动001：猜下这个变量j的值是多少？

2020年12月30日作者：水星Excel

776 次浏览暂无评论

截止昨天VBA代码大全系列发了10篇，今天我们换个主题

下面是一段求数值数组中最大值的一段代码：

Sub 求数组的最大值()
    Dim arr()
    For i = 0 To 100000
        ReDim Preserve arr(i)
        arr(i) = i
    Next i
    '求数组arr中的最大值
    j = Application.WorksheetFunction.Max(arr)
    '输出变量j的值
    Debug.Print j
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub 求数组的最大值()

Dim arr()

For i = 0 To 100000

ReDim Preserve arr(i)

arr(i) = i

Next i

'求数组arr中的最大值

j = Application.WorksheetFunction.Max(arr)

'输出变量j的值

Debug.Print j

End Sub

大家目测下最后的变量j的值是多少？[……]

阅读全文>>>

如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？

2020年7月3日作者：水星Excel
2,598 次浏览暂无评论

在爬取某个网站的返回数据时出现了类似这样的内容：

“ctime”:1593780471

其中ctime是一个时间戳，它表示的是从1970年1月1日 8:0:0到对应[……]

阅读全文>>>
如何用vba打开pdf文件？

2020年5月14日作者：水星Excel
4,906 次浏览暂无评论

在使用vba代码操作pdf文件时，有时候需要用vba来打开pdf文件，而不是人工手动打开。

这时候可以使用WScript.Shell 对象的Run方法。

Run方法可以根据文件的扩展名自动查找对应[……]

阅读全文>>>
VBA代码大全025：如何用vba判断剪贴板中有无数据？

2020年5月9日作者：水星Excel
2,032 次浏览暂无评论

上一期中我们介绍了如何用vba代码打开剪贴板，在很多涉及到跨软件的操作中，我们经常要利用剪贴板作为数据的中转区。

其中一个环节就是要判断剪贴板中是否有数据，复制的内容是文字还是图片等[……]

阅读全文>>>
如何在vba中使用wmi？

2020年4月30日作者：水星Excel
1,629 次浏览暂无评论

WMI是个好东西。

通过WMI我们可以直接访问操作系统底层的各种信息。

通过WMI我们不需要写复杂的API来访问操作系统的各种硬件信息。

[……]

阅读全文>>>
如何用vba判断是否打开了excel应用程序？

2020年4月23日作者：水星Excel
1,694 次浏览暂无评论

在如何在word、ppt中用vba获取已经打开的excel应用程序对象？一文中我介绍了如何通过GetObject函数引用已经打开的Excel应用程序。

有老铁私信说如果能先判断是否打[……]

阅读全文>>>
如何用vba有条件的全选所有excel图形对象？

2020年4月21日作者：水星Excel
2,623 次浏览暂无评论

在excel中可以通过定位对话框，一次性选中工作表中的所有图形对象。

在excel vba中，可以使用Range对象的SpecialC[……]

阅读全文>>>