vbs操作excel宏求帮助!

Question

我不懂vbs求大神帮忙写一个vbs代码，功能是操作excel宏，这个宏的主要代码是
Sub Macro1()
'
' Macro1 Macro
'
'
Rows("1:19").Select
Selection.Copy
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("1:20").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
我想在不打开excel的情况是执行这个代码而且要excel中的内容有变化这个可以么？就是想要一个可执行文件，一点击这个文件excel中的内容就按照上边的宏变化！不打开excel

Answer 1

哥们，这个我有一个间接地方法可以实现，就看你能不能听懂了。
1.你拿到的代码肯定是咋microsoft visual basic下的模块1上看到的，那么你双击这个界面的sheet1，看右边的代码窗口，有个“通用”的下拉框，选择“worksheet”，在“声明”下拉框选择“Worksheet_SelectionChange”，然后会生成一段代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
你在第一行和第三行之间复制你的代码，但是你的代码的第6行到倒数第二行，那么就得到了这个：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows("1:19").Select
Selection.Copy
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("1:20").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
保持该excel，原来的代码无所谓，删不删都没事。
然后新建一个text文件，写入：
Set oexcel=CreateObject("excel.application")
oexcel.Visible=false
Set workbook=oexcel.Workbooks.Open ("c:\1.xlsm") '这是那个excel文件的绝对路径，最好保持为xlsm格式，带宏的嘛
workbook.Worksheets(1).cells(1,1).select
set workbook=nothing
oexcel.quit
set oexcel=nothing
保持该text文件，修改后缀为vbs，双击.
注意，该代码只对第一个sheet叶有效果。

Answer 2

可以再后台打开，执行完毕后 自动保存关闭！

追问

怎么在后台打开呢？不清楚啊！您能具体说下么？