理论上可以使用AppActivate切换到微信窗口,然后使用sendkeys输入内容、按回车发送。但是微信的窗口不好控制,我懒得钻研,改用QQ发送,很容易就成功了。
vba就行,不到20行代码,主要就是用 appactivate 函数。复制这个区域,到微信窗口里粘贴就行,就这么简单
微信并没有开放相关的API接口,不然,你用VBA调用相关的接口就可以了。
不可以。要实现通过VBA在Excel中操作数据并发送到微信,你需要找到一种方法让VBA与微信API进行交互。然而,微信并没有官方提供与VBA直接集成的API。
Sub Demo()Dim RR Set RR = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")S = Range("B1")RR.SetText S RR.PutInClipboard End Sub
答:本人写的如下代码,经测试能够达到替换要求。第1个问题答案见下图,运行前确保表格里的记录行和文件数据一致,并且表格为活动表格。第2个问题答案见下图,运行前确表格为活动表格。
控件名称使用了”( )“这个数组或者函数用的符号,程序编译时会理解为一个数组或者函数,如果代码没有定义这个数组名或者函数名,则报错;如果刚好定义了这个名称,则会得出错误的结果,很难在运行中发现。一般情况下,窗体控件的名称应尽量简化,或者有一定规则避免出错。系统关键字、符号不要用在自定义...
1、首先,打开或者新建一个Excel表格,如下图所示。2、按下Alt + F11组合键以打开VBA编辑界面,单击左侧相应的工作表,然后在右侧出现空白代码编辑区域,如下图所示。3、编写代码如下图所示:Sub 鱼木混猪()Rows(7).DeleteFor i = 6 To 4 Step -1Rows(i).Delete NextEnd Sub代码的作用是将第...
第一步:打开工资表→在工资表最后一空白列输入1,2,3……(注:输入的数字与工资表的行数相同)第二步:在刚输入的数字下面向下输入1.1,2.1……,比上面的数据少一行,本列在K9中输入1.1 第三步:在K列任何一个单元格中单击左键→单击工具栏上的升序排列按钮→选择工资表→编辑→定位→定位...
代码如下:Public Function EVALUATEVBA (ByVal s As String) As Variant EVALUATEVBA = Application.Evaluate(s)End Function自定义函数EVALUATEVBA怎么样使用呢?先把自定义函数的三行代码添加到工作簿的模块中。之后就能在工作簿里使用自定义函数EVALUATEVBA了。代码添加到工作簿的模块具体操作步骤请看...