查看: 1668|回复: 5
如何在A文件中打开并运行B文件的宏？
阅读权限20
在线时间 小时
如何在A.XLS做一个宏，打开并运行B文件的宏？
具体是这样的，A文件用来打开一个文件夹中所有文件并刷新（数据源来自于数据库）
但文件夹中的一个B文件是一打开就会自动执行一个程序。
但是如果用A文件打开B文件并刷新数据时，B文件原先的自动运行的一个程序就无法运行了。（可能是因为刷新数据的命令会覆盖掉B文件的AUTO_OPEN的命令吧）
现在我想的办法是取消B文件的自动运行改为通过A文件中的宏调度运行，请教各位高手怎么办？
[ 本帖最后由 zhuhaoyue 于
17:31 编辑 ]
阅读权限95
在线时间 小时
将B文件的宏用auto_open()宏改用thisworkbook里的workbook_open()
阅读权限20
在线时间 小时
& && &&&试过用workbook_open，没用的，一刷新数据就不运行其他命令了
阅读权限70
在线时间 小时
没有原文件等于盲人摸象。
阅读权限20
在线时间 小时
回复 4楼 wxhnr 的帖子
附A文件VBA代码:Sub Macro1()
' Macro1 Macro
' 宏由 de56 录制，时间:
& & Rows(&4:4&).Select
& & Range(Selection, Selection.End(xlDown)).Select
& & Selection.ClearContents
& & p = ThisWorkbook.Path & &\&
& & f = Dir(p & &*.xls&)
& & Do While f && &&
& & If f = &仓库发货至门店(按日期).xls& Then& && &'判断是否为仓库发货至门店
& & f = Dir() '获得下一个工作簿名字
& && &&&If f && ThisWorkbook.Name Then
& && && && &Set wk = Workbooks.Open(p & f)& &&&' 一个一个打开工作簿
& && && && &wk.RefreshAll
& && && && &Application.Calculate
& && &&&End If
& && &&&f = Dir() '获得下一个工作簿名字
& & End If
'Application.Quit
B文件VBA代码：
Sub auto_open()
' Auto_open Macro
' 宏由 D621 录制，时间:
Dim cnn As New ADODB.Connection, rs As New ADODB.Recordset
Dim SQL As String
& & SQL = &SELECT XF_PROMID,COUNT(XF_STORECODE)&&FROM TTSH_XF_PROMSTORE WHERE XF_LASTMODTIME&'' GROUP BY XF_PROMID HAVING COUNT(XF_STORECODE)&50&
& & rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
& & Sheets(&检查是否有促销选择全国&).Select
& & Range(&a1:b1&).Select
& & Range(Selection, Selection.End(xlDown)).Select
& & Selection.ClearContents
& & Sheets(&检查是否有促销选择全国&).Range(&A1&).CopyFromRecordset rs
& & rs.Close
If Sheets(&检查是否有促销选择全国&).Range(&A1&).Value && && Then
MsgBox &警告: & & Sheets(&检查是否有促销选择全国&).Range(&A1&) & &生效门店过多，可能选择了全国门店&
该文件夹中其他文件无代码，但均有数据源
阅读权限70
在线时间 小时
你把下面两行换成这一句试试：& & Application.Run wk.Name & &!auto_open&
& && && && &wk.RefreshAll
& && && && &Application.Calculate
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1159|回复: 4
如何用宏代码：将txt文本的数据按特定格式导入excel
阅读权限30
在线时间 小时
D:/数据/a.txt 有数据35 8，格式为：
欲将a.txt的数据按如下方式循环导入excel第1行：
B1=35 C1=8 D1空 E1空
F1=35 G1=8 H1空 I1空
J1=35 K1=8 L1空 M1空
N1=35 O1=8 P1空 Q1空
XEX1=35 XEY1=8 XEZ1空 XFA1空
如此共循环4095次。这样的宏代码如何写？恳望得到帮助。
14:07 上传
点击文件名下载附件
6.63 KB, 下载次数: 39
阅读权限70
在线时间 小时
看不懂你要做的。
阅读权限50
在线时间 小时
Sub Test()
& & Dim strA As String, strB As String
& & Dim lngI As Long
& & Dim lngCol As Long
& & '**************
& & '从文件中读取你自己写
& & '我这里直接赋值了
& & strA = &35&: strB = &8&
& & '*****************
& & For lngI = 1 To 4095
& && && &lngCol = 2 + 4 * (lngI - 1)
& && && &Sheet1.Cells(1, lngCol) = strA
& && && &Sheet1.Cells(1, lngCol + 1) = strB
阅读权限30
在线时间 小时
lsdongjh 发表于
Sub Test()
& & Dim strA As String, strB As String
& & Dim lngI As Long
如何从文本读取？还望继续得到您的帮助。
放上文本附件。路径：D:/数据/a.txt
17:21 上传
点击文件名下载附件
115 Bytes, 下载次数: 10
阅读权限95
在线时间 小时
本帖最后由 bluexuemei 于
20:33 编辑
Sub test()
Open &D:/数据/a.txt& For Input As #1
GetTxt = StrConv(InputB(LOF(1), 1), vbUnicode): Reset
ARR = Split(Left(GetTxt, Len(GetTxt) - 2), vbCrLf)
For i = 2 To Columns.Count Step 4
&&n = n + 1
&&Cells(1, i).Resize(1, 2) = ARR
&&If n = 4096 Then Exit For
Next
Stop
End Sub复制代码
感谢帮助。自己标注一下：4096改为4095
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1668|回复: 5
如何在A文件中打开并运行B文件的宏？
阅读权限20
在线时间 小时
如何在A.XLS做一个宏，打开并运行B文件的宏？
具体是这样的，A文件用来打开一个文件夹中所有文件并刷新（数据源来自于数据库）
但文件夹中的一个B文件是一打开就会自动执行一个程序。
但是如果用A文件打开B文件并刷新数据时，B文件原先的自动运行的一个程序就无法运行了。（可能是因为刷新数据的命令会覆盖掉B文件的AUTO_OPEN的命令吧）
现在我想的办法是取消B文件的自动运行改为通过A文件中的宏调度运行，请教各位高手怎么办？
[ 本帖最后由 zhuhaoyue 于
17:31 编辑 ]
阅读权限95
在线时间 小时
将B文件的宏用auto_open()宏改用thisworkbook里的workbook_open()
阅读权限20
在线时间 小时
& && &&&试过用workbook_open，没用的，一刷新数据就不运行其他命令了
阅读权限70
在线时间 小时
没有原文件等于盲人摸象。
阅读权限20
在线时间 小时
回复 4楼 wxhnr 的帖子
附A文件VBA代码:Sub Macro1()
' Macro1 Macro
' 宏由 de56 录制，时间:
& & Rows(&4:4&).Select
& & Range(Selection, Selection.End(xlDown)).Select
& & Selection.ClearContents
& & p = ThisWorkbook.Path & &\&
& & f = Dir(p & &*.xls&)
& & Do While f && &&
& & If f = &仓库发货至门店(按日期).xls& Then& && &'判断是否为仓库发货至门店
& & f = Dir() '获得下一个工作簿名字
& && &&&If f && ThisWorkbook.Name Then
& && && && &Set wk = Workbooks.Open(p & f)& &&&' 一个一个打开工作簿
& && && && &wk.RefreshAll
& && && && &Application.Calculate
& && &&&End If
& && &&&f = Dir() '获得下一个工作簿名字
& & End If
'Application.Quit
B文件VBA代码：
Sub auto_open()
' Auto_open Macro
' 宏由 D621 录制，时间:
Dim cnn As New ADODB.Connection, rs As New ADODB.Recordset
Dim SQL As String
& & SQL = &SELECT XF_PROMID,COUNT(XF_STORECODE)&&FROM TTSH_XF_PROMSTORE WHERE XF_LASTMODTIME&'' GROUP BY XF_PROMID HAVING COUNT(XF_STORECODE)&50&
& & rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
& & Sheets(&检查是否有促销选择全国&).Select
& & Range(&a1:b1&).Select
& & Range(Selection, Selection.End(xlDown)).Select
& & Selection.ClearContents
& & Sheets(&检查是否有促销选择全国&).Range(&A1&).CopyFromRecordset rs
& & rs.Close
If Sheets(&检查是否有促销选择全国&).Range(&A1&).Value && && Then
MsgBox &警告: & & Sheets(&检查是否有促销选择全国&).Range(&A1&) & &生效门店过多，可能选择了全国门店&
该文件夹中其他文件无代码，但均有数据源
阅读权限70
在线时间 小时
你把下面两行换成这一句试试：& & Application.Run wk.Name & &!auto_open&
& && && && &wk.RefreshAll
& && && && &Application.Calculate
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1668|回复: 5
如何在A文件中打开并运行B文件的宏？
阅读权限20
在线时间 小时
如何在A.XLS做一个宏，打开并运行B文件的宏？
具体是这样的，A文件用来打开一个文件夹中所有文件并刷新（数据源来自于数据库）
但文件夹中的一个B文件是一打开就会自动执行一个程序。
但是如果用A文件打开B文件并刷新数据时，B文件原先的自动运行的一个程序就无法运行了。（可能是因为刷新数据的命令会覆盖掉B文件的AUTO_OPEN的命令吧）
现在我想的办法是取消B文件的自动运行改为通过A文件中的宏调度运行，请教各位高手怎么办？
[ 本帖最后由 zhuhaoyue 于
17:31 编辑 ]
阅读权限95
在线时间 小时
将B文件的宏用auto_open()宏改用thisworkbook里的workbook_open()
阅读权限20
在线时间 小时
& && &&&试过用workbook_open，没用的，一刷新数据就不运行其他命令了
阅读权限70
在线时间 小时
没有原文件等于盲人摸象。
阅读权限20
在线时间 小时
回复 4楼 wxhnr 的帖子
附A文件VBA代码:Sub Macro1()
' Macro1 Macro
' 宏由 de56 录制，时间:
& & Rows(&4:4&).Select
& & Range(Selection, Selection.End(xlDown)).Select
& & Selection.ClearContents
& & p = ThisWorkbook.Path & &\&
& & f = Dir(p & &*.xls&)
& & Do While f && &&
& & If f = &仓库发货至门店(按日期).xls& Then& && &'判断是否为仓库发货至门店
& & f = Dir() '获得下一个工作簿名字
& && &&&If f && ThisWorkbook.Name Then
& && && && &Set wk = Workbooks.Open(p & f)& &&&' 一个一个打开工作簿
& && && && &wk.RefreshAll
& && && && &Application.Calculate
& && &&&End If
& && &&&f = Dir() '获得下一个工作簿名字
& & End If
'Application.Quit
B文件VBA代码：
Sub auto_open()
' Auto_open Macro
' 宏由 D621 录制，时间:
Dim cnn As New ADODB.Connection, rs As New ADODB.Recordset
Dim SQL As String
& & SQL = &SELECT XF_PROMID,COUNT(XF_STORECODE)&&FROM TTSH_XF_PROMSTORE WHERE XF_LASTMODTIME&'' GROUP BY XF_PROMID HAVING COUNT(XF_STORECODE)&50&
& & rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
& & Sheets(&检查是否有促销选择全国&).Select
& & Range(&a1:b1&).Select
& & Range(Selection, Selection.End(xlDown)).Select
& & Selection.ClearContents
& & Sheets(&检查是否有促销选择全国&).Range(&A1&).CopyFromRecordset rs
& & rs.Close
If Sheets(&检查是否有促销选择全国&).Range(&A1&).Value && && Then
MsgBox &警告: & & Sheets(&检查是否有促销选择全国&).Range(&A1&) & &生效门店过多，可能选择了全国门店&
该文件夹中其他文件无代码，但均有数据源
阅读权限70
在线时间 小时
你把下面两行换成这一句试试：& & Application.Run wk.Name & &!auto_open&
& && && && &wk.RefreshAll
& && && && &Application.Calculate
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel中将文本转换为数字的七种方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Excel中将文本转换为数字的七种方法
上传于||暂无简介
阅读已结束，如果下载本文需要使用
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩1页未读，继续阅读
你可能喜欢