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 '完畢後關閉新表
注意:保證你的文件已保存,所有生成的文件與你的原文件在一個文件夾