excel寫腳本
① 怎麼製作excel按鍵精靈腳本
方法/步驟
1
首先來建立一個新的Excel文檔，在桌面上點擊右鍵，選擇【新建】-【Excel工作表】，命名為【新手學員】。
2
現在這個新Excel文檔是空白的，我們接下來會通過按鍵精靈的腳本來打開並寫入一些數據。
3
打開按鍵精靈軟體，點擊【新建】，進入我的腳本界面，再點擊進入【全部命令】。
在【全部命令】中選擇【插件命令】-【office辦公文檔插件】-【打開Excel文檔】。
在命令的下面可以看到命令的詳細設置，點擊【路徑】。
在彈出窗口中選擇【新手學員】的Excel文檔，點擊打開。
可以在命令參數中看到引用的文檔，點擊插入就可以插入對應的命令腳本。
繼續在文檔中寫入新的數據，選擇命令【writeXls 寫入Excel文檔單元格】，選擇對應的單元格的行和列，輸入要寫入單元格的內容【"序號"】，點擊插入。
在腳本界面可以看到新插入的代碼。
根據類似的格式，可以添加其它代碼，一共寫入3行4列的單元格內容。
最後選擇【closeXls 關閉文檔】，點擊插入對應的代碼。
修改腳本屬性的描述和保存的腳本文件名。保存腳本後按【F10】進行腳本調試。
腳本執行完成後，再次打開這個Excel文檔，可以看到剛才設置的數據已經成功寫入了。
② 怎樣在Excel中使用python腳本
在Excel中准備調用的python代碼：
def merge_sort_unique(lists):
s = set()
for L in lists:
s.update(L)
return sorted(s)
任意在本地建立一個目錄，並保存這個代碼並命名為Methods.py。我們一步步看看如何從Excel的工作表中如何調用這個腳本。打開Excel，填寫一些數據以便提供python腳本處理，並保持這個表格於剛才的python腳本在同一目錄下。你的工作表應該如下：
現在，備調用python腳本，創建一個新的模塊（Insert | Mole）並敲以下VBA代碼：
Function msu(lists As Range)
Set methods = PyMole("Methods", AddPath:=ThisWorkbook.Path)
Set result = PyCall(methods, "merge_sort_unique", PyTuple(lists.Value2))
msu = WorksheetFunction.Transpose(PyVar(result))
ExitFunction
EndFunction
③ 如何用EXCEL的VBA腳本編寫程序刪除空行和空列
這段VBA代碼的作用是刪除Excel工作簿中所有工作表中的空行和空列。代碼包含了三個子過程：
Sub 刪除所有空行和空列()
這個子過程首先遍歷工作簿中的每一個工作表。對於每一個工作表，它執行以下操作：取消合並單元格，以便在刪除空行和空列時不會留下空白的單元格。
調用 DeleteEmptyRows 子過程，刪除所有空行。
調用 DeleteEmptyColumns 子過程，刪除所有空列。
自動調整行高和列寬，以適應數據。
Sub DeleteEmptyRows()
這個子過程用於刪除工作表中的空行。它首先確定最後一行的行號，然後從最後一行卜橡開始向上遍歷，逐行檢查該行是否為空行。如果該行為空行，則刪除該行。通過使用 CountA 函數來確定行中是否存在任何非空單元格。Sub DeleteEmptyColumns()
這個子過程用於刪除液嫌工作表中的空列鬧弊手。它首先確定最後一列的列號，然後從最後一列開始向左遍歷，逐列檢查該列是否為空列。如果該列為空列，則刪除該列。也是通過使用 CountA 函數來確定列中是否存在任何非空單元格。
需要注意的是，由於該代碼對每個工作表都進行了操作，如果工作簿中有大量工作表或者數據量很大，可能會影響代碼的執行效率。
④ Excel vba每行自動插入多行並自動填充，求大神幫忙寫個腳本，用多層嵌套了，就差一個自動化
新代碼：
Sub CopyRow()
Dim Cell As Range
拍山 Dim RowCount As Integer, ColCount As Integer
Set Cell = Range("A2")
租棗 RowCount = 100
ColCount = Columns("L").Column
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Do While Not IsEmpty(Cell)
If Cell > 1 Then
Range(Cell.Offset(1, 0), Cell.Offset(RowCount, 0)).Resize(, ColCount).Insert Shift:=xlDown
Range(Cell, Cell.Offset(RowCount, 0)).Resize(, ColCount).FillDown
End If
弊賀拆 Set Cell = Cell.Offset(RowCount + 1, 0)
Loop
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
⑤ 如何將Excel中表結構數據自動生成SQL腳本的方法
一： 在本地PC新建一個Excel文件（例如：excel2007）
准備工作，左鍵選擇excel文本左上角的圖標，選擇「Excle選項」。1. 點擊「信任中心」->「信任中心設置」->「宏設置」->選擇「啟用所有宏...」選項。「開發人員宏設置」選項也勾選上。 2. 點擊「信任中心」->「信任中心設置」->選擇「個人信息選項」，將「文檔特定設置」上面默認選擇去掉，避免在保存腳本時報錯。
二： 在本地PC新建一個excel文件（例如： D:\testdate.xlsx）
按快捷鍵「ALT + F11」進入宏編輯，輸入如下代碼後保存。summary()為目標生成代碼，SQL()為生成SQL腳本文件代碼，按條件生成SQL的腳本如下：
Sub summary()
Dim i As Integer
i = 2
ThisWorkbook.Worksheets(1).Columns(2).Clear
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> " " Then
ThisWorkbook.Worksheets(1).Cells(i, 2).Value = sh.Name
ThisWorkbook.Worksheets(1).Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
sh.Name + "!A1", TextToDisplay:=sh.Name
i = i + 1
End If
Next sh
ThisWorkbook.Worksheets(1).Cells.Select
With Selection.Font
.Name = "目錄"
.Size = 9
.Strikethrough = False
.Superscript. = False
.Subscript. = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Sub SQL()
Dim i As Integer
i = 1
Dim ADO_Stream As Object
Dim strSQL, strDelSQL As String
Dim strTblName As String
Dim col As Long
Dim row As Long
Dim str As String
Dim PK As String
Dim cnt As Integer
PK = "PK"
Dim rowcounts As Long
rowcounts = 0
Dim filecount As Long
filecount = 0
Set ADO_Stream = CreateObject("ADODB.Stream")
ADO_Stream.Type = 2
ADO_Stream.Mode = 3
ADO_Stream.Charset = "unicode"
ADO_Stream.Open
Dim checkType As String
For Each sh In ThisWorkbook.Worksheets
cnt = 0
If sh.Name <> " " And InStr(sh.Name, "template") = 0 Then
strTblName = sh.Cells(1, 2).Value
rowcounts = 1
'Insert SQL
row = 6
Do While sh.Cells(row, 1).Value <> ""
strDelSQL = "delete from " + strTblName + " where "
strSQL = "Insert into " + strTblName + " ("
col = 1
Do While sh.Cells(3, col).Value <> ""
If col <> 1 Then
strSQL = strSQL + ", "
End If
strSQL = strSQL + sh.Cells(3, col).Value
col = col + 1
Loop
strSQL = strSQL + ") VALUES ("
col = 1
Do While sh.Cells(3, col).Value <> ""
str = Trim(CStr(sh.Cells(row, col).Value))
If InStr(Trim(CStr(sh.Cells(2, col).Value)), PK) <> 0 Then
If cnt > 0 Then
strDelSQL = strDelSQL + " and "
End If
strDelSQL = strDelSQL + Trim(CStr(sh.Cells(3, col).Value)) + " = '" + str + "'"
cnt = cnt + 1
End If
If col <> 1 Then
strSQL = strSQL + ", "
End If
If (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Integer") = 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Decimal") = 0) And ((InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") = 0) Or _
((Len(str) > 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0))) Then
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
ElseIf InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0 Then
str = "to_date('" + str + "','yyyy-mm-dd hh24:mi:ss')"
Else
str = "'" + str + "'"
End If
strSQL = strSQL + str
ElseIf (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0) Then
strSQL = strSQL + "NULL"
Else
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
End If
strSQL = strSQL + str
End If
col = col + 1
Loop
strDelSQL = strDelSQL + ";" + vbCrLf
ADO_Stream.WriteText strDelSQL
strSQL = strSQL + ");" + vbCrLf
ADO_Stream.WriteText strSQL
row = row + 1
Loop
End If
i = i + 1
rowcounts = 0
filecount = 0
Next sh
ADO_Stream.SaveToFile ThisWorkbook.Path & "\MstSQL(delete by condition).txt", 2
ADO_Stream.Close
Set ADO_Stream = Nothing
End Sub
點擊「保存」宏腳本，主要的一步完成。
三： 在excel文件（test.xlsx）的首頁創建兩個圖標，分別選擇右鍵指定宏，一個指定上面的summary(),一個指定上面的SQL()。然後就可以在後續的sheet頁創建自己需要生成SQL腳本的表結構名稱了，記得每個sheet頁面對應一個表結構及數據，使用方法如下：
A,將需要更新的對象表數據整個sheet拷進工具中，數據只保留需要更新的數據。
B,在第2行標出主鍵欄位，填上「PK」即可。
看看代碼
http://www.51testing.com/html/41/195041-831346.html
⑥ 腳本用word還是excel寫
Word。
1、腳本適合用Word文檔的格式。Excel是表格形式，不適合寫腳本。
2、Excel本身的空白文檔就是表格形式，只需根據自己的需要填入數據，並對表格進行調整就可以快速完成表格的製作，如果需要對表格進行列印，可以用Word程序進行轉換。
⑦ 怎樣在Excel中使用python腳本
一、使用工具：excel、python
二、使用方法和步驟：
1、先安裝python2.7，然後配置環境變數，保證python在該環境中，打開開始菜單，找到計算機，然後右鍵單擊它，選擇【屬性】
2、找到高級系統設置
3、找到環境變數，點擊該按鈕，打開環境變數設置窗口
4、找到Path系統變數，然後點擊【編輯】
5、在這里，確保python的安裝目錄在，沒有的話，添加進去
6、下面就可以安裝該插件了
7、雙擊即可安裝，安裝過程就是一路點擊』下一步。
8、在這里，不要勾選python，如果通過這種方式安裝python，你原先安裝的python就無法使用了。
9、最後安裝完成，打開Excel就可以看到datanitro了
三、注意事項：切記不要勾選python，如果通過這種方式安裝python，你原先安裝的python就無法使用了。
⑧ Excel 宏腳本，這個怎麼修改
宏的運行或刪除首先要在「宏的安全級別為低」的狀態下才能進行，而Excel 默認「宏的安全級別為高」，所以打開帶有宏的工作簿依次點擊菜單「工具-->宏-->安全性」，打開「安全性」對話框。改成低安全性就行。
或者是只需要在注冊表上修改下參數即可禁止excel宏的運行。點擊任務欄上的【開始-運行】，然後在運行框上輸入【regedit】命令回車，打開注冊表，然後在注冊表編輯器窗口上依次打開【HKEY_LOCAL_.0EXCELsecurity】，找到之後發現在右邊窗口上有一消早項名稱為level。雙擊打開它，在跳出的編輯DWORD值裡面看到【數值數據(V)：】下面的消神空格，你就可以在裡面拿橋虧修改數值啦。將其數值更改為3即可。
⑨ 有哪些方法可以在excel中直接使用python腳本
在excel中直接使用python腳本可以使用vba觸鏈緩發，具體做法如下：
1、創建python腳本如下：
importtime
defhello(name):
return"Hello,"+name+"!"
printhello("World")
#延時關閉windows控制鬧褲台，使得用戶可以看到運行結果
time.sleep(150);
2、在excel中打開vba編輯器，編寫觸發入口：
3、運行棚彎模宏，效果如下：
Hello,World