Windows脚本打开Excel文件并运行宏

对不起，我对VBA很新，所以我一直在学习。我试图寻找一个答案，但我发现的一切似乎认为宏将在我想打开的文件中。Windows脚本打开Excel文件并运行宏

每月一次我得到一个包含一些数据的文件。到目前为止，我必须查看数据，然后在保存之前执行VLOOKUP以添加一些附加数据。

我现在已经写了一个VBA宏来添加我想要的附加信息，它的工作原理如下。然而，我想要做的是有一个Windows脚本，将打开我收到的文件，运行我写的宏，然后将文件保存为csv。

任何人都可以指向正确的方向吗？如果需要我的微距低于

Sub AddBandInfo() 
Dim i As Long 
For i = 2 To 50000 
Dim band As String, result As Double 
band = Range("B" & i).Value 
If band = "A" Then result = 1144.02 
If band = "B" Then result = 1334.7 
If band = "C" Then result = 1525.36 
If band = "D" Then result = 1716.04 
If band = "E" Then result = 2097.38 
If band = "F" Then result = 2478.72 
If band = "G" Then result = 2860.08 
If band = "H" Then result = 3432.08 
If band = "" Then result = 0.01 
Range("C" & i).Value = result 
Next i 

Dim r As Long 
For r = Sheet1.UsedRange.Rows.Count To 1 Step -1 
If Cells(r, "C") = "0.01" Then 
    Sheet1.Rows(r).EntireRow.Delete 
End If 
Next 

End Sub

感谢

来源

2016-06-21 SeagullWardy

是否有一个特定的原因，您希望这是一个Windows脚本？您可以创建一个个人工作簿并使用VBA与FileDialog对象一起选择文件 –

创建一个.txt文件，并将其重命名为.VBS。

Set objXLS = CreateObject("Excel.Application") 
Set myWkbk = objXLS.Application.Workbooks.Open("C:\mypath\myfile.xlsx") 
Set myWksh = myWkbk.Worksheets("yoursheet") 
With myWksh 

'your 
'code 
'here 

End With 

Set objXLS = Nothing

全部完成：

与启动代码。 :)

来源

2016-06-21 11:23:40

如果您不熟悉'With'请看看这个：https：//msdn.microsoft.com/en-en/library/wc500chb的.aspx –

我们可以提高

绷Application.ScreenUpdating
从最后一行循环到第一行AddBandInfo速度和性能（这样做允许使用，因为我们去删除行）

如果50000是不实际的最后一行用

对于i =范围（ “B” & Rows.Count）.END（xlUp）.Row为2步骤-1

Public Sub AddBandInfo() 
    Dim i As Long 
    Application.ScreenUpdating = False 
    For i = 50000 To 2 Step -1 
     Dim band As String, result As Double 
     band = Range("B" & i).Value 
     Select Case Cells(i, 2).Value 
      Case "A" 
       Range("C" & i).Value = 1144.02 
      Case "B" 
       Range("C" & i).Value = 1334.7 
      Case "C" 
       Range("C" & i).Value = 1525.36 
      Case "D" 
       Range("C" & i).Value = 1716.04 
      Case "E" 
       Range("C" & i).Value = 2097.38 
      Case "F" 
       Range("C" & i).Value = 2478.72 
      Case "G" 
       Range("C" & i).Value = 2860.08 
      Case "H" 
       Range("C" & i).Value = 3432.08 
      Case Else 
       Rows(i).EntireRow.Delete 
     End Select 
    Next 
    Application.ScreenUpdating = True 
End Sub

假设AddBandInfo保存在C：\ somedirectory \ somefile.xlsx和你想要一个VBScript来打开工作簿和然后运行AddBandInfo：

Const WorkBookPath = "C:\somedirectory\somefile.xlsx" 
Dim xlApplication, xlWorkbook 

Set xlApplication = CreateObject("Excel.Application") 
Set xlWorkbook = xlApplication.Workbooks.Open(WorkBookPath) 
xlApplication.Run "'" & xlWorkbook.Name & "'!AddBandInfo()" 

xlWorkbook.Save , False 
xlApplication.Quit 

Set xlApplication = Nothing

来源

2016-06-21 12:48:28

Windows脚本打开Excel文件并运行宏

回答

相关问题