一月, 2017 | ExcelOffice

如何用vba判断电脑操作系统是32位还是64位的？

2017年1月30日作者：exceloffice

暂无评论

在vba中利用环境变量

PROCESSOR_ARCHITECTURE

1	PROCESSOR_ARCHITECTURE

可以快速地获悉处理器是属于32位的还是64位的。

为此，可以使用如下的代码来判断电脑操作系统是32位还是64位的。

Sub QQ1722187970()
    Dim sID As String
    sID = VBA.Environ("PROCESSOR_ARCHITECTURE")
    If sID Like "*86*" Then
        MsgBox "32位操作系统"
    ElseIf sID Like "*64*" Then
        MsgBox "64位操作系统"
    End If
End Sub

1

2

3

4

5

6

7

8

9

Sub QQ1722187970()

Dim sID As String

sID = VBA.Environ("PROCESSOR_ARCHITECTURE")

If sID Like "*86*" Then

MsgBox "32位操作系统"

ElseIf sID Like "*64*" Then

MsgBox "64位操作系统"

End If

End Sub

如何在vba中获取环境变量的值?

2017年1月30日作者：exceloffice

暂无评论

环境变量（environment variables）一般是指在操作系统中用来指定操作系统运行环境的一些参数，如：临时文件夹位置和系统文件夹位置等。

环境变量是在操作系统中一个具有特定名字的对象，它包含了一个或者多个应用程序所将使用到的信息。例如Windows和DOS操作系统中的path环境变[……]

阅读全文

如何用vba创建access数据库文件？

2017年1月24日作者：exceloffice

暂无评论

用vba创建access数据库文件，需要用到ADOX.Catalog对象。

ADOX.Catalog对象是专门用来遍历数据库中的表、索引、键值、列、视图、以及属性。

对于一个已经存在的数据库文件可以使用ADOX.Catalog对象获取它的表、索引、键值、列、视图、以及属性等。

如果[……]

阅读全文

如何启用宏使VBA代码可以运行？

2017年1月21日作者：exceloffice

暂无评论

平时，我们接收到一个excel文件，打开后无法运行里面的vba程序，抛开程序本身错误的问题，有可能是我们的软件设置导致的。如下图所示

可以按照以下的步骤设置既可以使代码正常运行。

excel 2007（含）以上的版本：

步骤1.单击“文件”选项卡→单击“选项”按钮→在弹出的[……]

阅读全文

如何在vba中使用正则表达式？

2017年1月21日作者：exceloffice

暂无评论

正则表达式（Regular Expression）是指用约定规则的字符串去查找、匹配符合的结果。

这个“约定规则的字符串”被称为正则表达式的pattern。

其中正则表达式可以使用多个元字符来表示特殊的字符串，元字符列表如下：

字符
描述

\
将下一个字符标记[……]

阅读全文

如何用api关闭QQ好友的聊天窗口？

2017年1月18日作者：exceloffice

暂无评论

关闭窗体的api函数有很多，比如DestroyWindow、CloseWindow，但是这些API函数对于QQ聊天窗口都无效。

但是可以用SendMessage函数发送WM_CLOSE消息进行关闭。

代码如下：

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Sub QQ1722187970()
    Dim iHwnd
    iHwnd = FindWindow("TXGuiFoundation", "灯下玉")
    SendMessage iHwnd, WM_CLOSE, 0, 0
End Sub

1

2

3

4

5

6

7

8

9

10

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

Sub QQ1722187970()

Dim iHwnd

iHwnd = FindWindow("TXGuiFoundation", "灯下玉")

SendMessage iHwnd, WM_CLOSE, 0, 0

End Sub

&nb[……]

阅读全文

如何用api获取QQ好友聊天窗口的句柄？

2017年1月18日作者：exceloffice

暂无评论

QQ好友的聊天窗口的句柄可以通过API函数FindWindow获取。

FindWindow函数的语法如下，它有两个参数，第一个参数是要获取的窗口的类名，第二个参数是要获取的窗口的标题名称。如下所示：

HWND WINAPI FindWindow(
  _In_opt_ LPCTSTR lpClassName,
  _In_opt_ LPCTSTR lpWindowName
);

1

2

3

4

HWND WINAPI FindWindow(

_In_opt_ LPCTSTR lpClassName,

_In_opt_ LPCTSTR lpWindowName

);

如果FindWindow[……]

阅读全文

如何用vba代码调出QQ好友聊天对话窗口?

2017年1月13日作者：exceloffice

暂无评论

使用vba处理QQ聊天窗口是比较复杂的，由于QQ窗口是封闭的，所以很难通过vba代码打开QQ窗口。

不过腾讯为我们预留了一个接口，可以通过命令行的方式来打开QQ聊天窗口。

以下为命令行代码：

cmd /c start tencent://Message/?Uin=+QQ号码

1	cmd /c start tencent://Message/?Uin=+QQ号码

通过以上的命令行代码可以打[……]

阅读全文

如何用vba处理word表格？

2017年1月11日作者：exceloffice

暂无评论

在word中可以插入表格，这个表格与excel的表格很相似，但是在用vba处理word表格时，还是有所区别。

每一个word表格就是一个table对象，行列分别属于row、column对象，每一个单元格属于cell对象。

在给单元格赋值时，不能直接用cell.value而是要用cell.[……]

阅读全文

如何在excel中用vba插入并调整图形的大小位置？

2017年1月8日作者：exceloffice

暂无评论

在使用Excel的过程中经常会碰到需要处理图形的时候。

在excel中插入图形后，它的位置和大小是最经常需要调整的。

在excel 2007版本以后，vba使用Shape对象来处理所有种类的图形对象，包括文本框，线条、图片等。

以下代码列举了一些常用的处理图形对象的方法。
[cr[……]

阅读全文

如何用vba判断电脑操作系统是32位还是64位的？

如何在vba中获取环境变量的值?

如何用vba创建access数据库文件？

如何启用宏使VBA代码可以运行？

如何在vba中使用正则表达式？

如何用api关闭QQ好友的聊天窗口？

如何用api获取QQ好友聊天窗口的句柄？

如何用vba代码调出QQ好友聊天对话窗口?

如何用vba处理word表格？

如何在excel中用vba插入并调整图形的大小位置？

近期文章

功能

近期文章

关键字

功能