excel宏工具输出脚本
㈠ 如何能够自动执行EXCEL宏脚本
Private Sub Workbook_Open()
End Sub
上面的过程可能不是您需要的。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
具体看您需要。
㈡ excel 输出到TXT 宏 要可用的.
Sub WriteTxt()
Dim textName As String
Dim i As Long
textName = ThisWorkbook.Path & "\" & [b1].Value & ".txt"
Open textName For Output As #1 '打开文本文件以写入内容
For i = 22 To 127 '循环B22:B127
Print #1, Cells(i, 2).Value '写入内容
Next
Close #1 '关闭文本文件
MsgBox "文本文件写入完成，文件路径及文件名为：" & vbCrLf & textName
End Sub
㈢ excel用宏批量处理怎么做
一、自制自定义宏
首先，如下图一样，执行菜单操作“工具”→“宏”→“宏”
在Excel中如何自制自定义宏并使用宏
弹出如下图对话框！
在Excel中如何自制自定义宏并使用宏
现在，我们要做的任务就是创建一个原来就没有的宏；因此，在上图对话框中，宏名那里，输入宏的名字，如本例的“我的宏”，然后，点击“创建”按钮，弹出如下图！
在Excel中如何自制自定义宏并使用宏
看上图，上述的Sub 我的宏()，代表了一个宏的开始，其中，我的宏，指的是宏的名字；而End Sub则表明一个宏的结束。我们想要这个宏实现什么功能，就在开始位置和结束位置之间，输入自己的宏代码即可。
如下图一样，输入欲实现的功能即可。
在Excel中如何自制自定义宏并使用宏
宏代码输入完成之后，直接关闭VBA窗口，就可以返回Excel窗口了。
二、使用自定义宏
自定义宏自制好了，下面，我们就来使用宏吧，如何使用呢？
最好的办法就是通过给宏指定一个组合键，运行您的自制宏。
执行菜单操作“工具”→“宏”→“宏”，弹出如下图对话框。
在Excel中如何自制自定义宏并使用宏
上图，看到了吧，刚才我们自制的宏，其名称“我的宏”出现在对话框中了，首先将此名称选中，然后，点击“选项”按钮，弹出如下图对话框！
在Excel中如何自制自定义宏并使用宏
上图对话框功能是，给宏定制一个组合键。这样，在操作Excel的时候，按下相应的组合键，该宏的代码马上就运行，效果立马就出来了，相当方便。
上图中，在“快捷键”下面的那输入的小方框内，按下K键，这样，K就输入了，这样，我们就可以通过Ctrl＋K这个组合键，执行宏代码了。
当然，说明那里，可以填写也可以不填写。最好的习惯是，在这个地方输入宏代码的功能说明。
一切设置完毕，点击“确定”确认退出即可。
现在，只要您选择好单元格，按下CTRL+K，那么，效果就出来了，这就是自定义宏的使用方法。
㈣ 用函数或宏命令在excel实现输入一个值，然后输出所需要的数据
用辅助行实现，如图：
辅助行：B3输入1；
C3公式：
=B3+C2
右拉；
A5公式：
=IF(ROW(A1)<=SUM(C$2:M$2),A$2,"")
下拉；
B5公式：
=IF(A5<>"",LOOKUP(ROW(A1),B$3:L$3,C$1:M$1),"")
下拉。
㈤ excel宏脚本问题
set ws=createobject("wscript.shell")
path=ws.currentdirectory
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(path)
set files=folder.files
for each file in files
if right(file,3)="xls" then call excel(file)
next
msgbox "操作成功！",48+4096,"系统提示"
sub excel(a)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(a)
intRow = 1
Do Until objExcel.Cells(intRow,1).Value = ""
h= objExcel.Cells(intRow, 1).Value
objExcel.Cells(intRow, 2).Value=left(h,3)
objExcel.Cells(intRow, 3).Value=mid(h,4,2)
objExcel.Cells(intRow, 4).Value=right(h,2)
intRow = intRow + 1
Loop
objExcel.ActiveWorkbook.Save '保存
objExcel.Quit
end sub
把上面的内容保存成VBS文件，之后把它复制到EXCEL文档的目录下，双击运行即可，连宏也不用了一个文件搞定了。
（强烈建议：请务必在测试后使用！）
已经修改后，发给你了，查收一下。 :)
㈥ excel 工具“宏”的具体使用方法！！！
如果你会vb语言，那你只要写代码就行了，但你不会vb那你就只能做一些简单的宏了，1、执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框。
2、在“宏名”下面输入一个名称（如“跨列居中”），并设置好宏的保存位置。
注意：宏的保存位置有三种：当前工作簿——宏只对当前工作簿有效；个人宏工作簿——宏对所有工作簿都不得有效；新工作簿——录制的宏保存在一个新建工作簿中，对该工作簿有效。
3、按下“确定”按钮开始录制。
4、将设置“跨列居中”的过程操作一遍，完成后，按一下“停止录制”工具栏上的“停止录制”按钮。
宏录制完成。
有些宏需要对任意单元格进行操作，这时，请在操作开始前，选中“停止录制”工具栏上的“相对引用”按钮。
㈦ 如何用宏命令实现excel中文件批量打印
复制到 表2
Sub 打印()
For N = 1 To 100 '打印100份
[B1] = Sheets("表1").[A1] '每张表格中B1单元格的内容都等于 表1的 A1
Range("A1:I20").Select '打印区域，自己修改
Selection.PrintOut Copies:=1 '
Next
MsgBox "打印完毕"
End Sub
㈧ 如何通过EXCEL宏功能实现打印选定内容
通过EXCEL宏功能实现打印选定内容的步骤如下：
1、首先我们先在桌面找到Excel这个软件并打开。
㈨ excel 用宏定位输出
Sub test()
Sheets("sheet2").Range("E2") = Sheets("sheet1").Range("E900").Value
End Sub
㈩ excel vba求一个 批量导出 的宏
我是一楼,对原代码修改了一下,并加了注释:
不过你格式的描述我不是很明白,你可以把代码修改一下
你可以发一个新生成的样表到[email protected]
工具→宏→宏:随便输个宏名(如AAA) :创建
然后下面内容复制进去,按F5即可:
Dim i As Long, j As Long, n1, n2, path_this As String
path_this = Replace(ThisWorkbook.Path & "\", "\\", "\")
'获取当前工作表的路径,为防止在根目录,用REPLACE处理了一下
Set n2 = ThisWorkbook.ActiveSheet: Set n1 = Workbooks.Add
'用N2表示当前表,N1表示新建表
n2.Activate: n2.Cells.Sort Key1:=Range("A1")
'把N2置为活动表 , 冒号后面是对表按A列进行排序
For i = 1 To n2.[A65536].End(xlUp).Row '从A列第一个到最后一个有效数据进行循环
n1.Sheets(1).Cells.Clear '把新表内容清空
n2.Activate '把原始表置为活动
j = WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) '计算原始表中A列的重复,相同的放在一个文件里
n2.Range("1:1").Copy n1.Sheets(1).Cells(1, 1) '将原始表的表头复制到新表,这里可以该为任意你所需要的格式
n2.Range(i & ":" & i + j - 1).Copy n1.Sheets(1).Cells(2, 1) '将原始表的数据复制到新表
n1.SaveAs path_this & n1.Sheets(1).Cells(2, 1) & ".xls" '保存新表为要求的文件名
i = i + j - 1 '计算下一个的位置
Next i '进行下一个
n1.Close '完毕后关闭新表
注意:保证你的文件已保存,所有生成的文件与你的原文件在一个文件夹