2

我正在尝试在 VBA 中编写一个程序，以便我可以从 SAS（一种统计编程软件）远程操作一个 excel 文件。我希望程序完成以下任务：

  1. 打开指定的excel文件
  2. 查找并替换标题行中的所有空白（例如，“测试名称”变为“测试名称”）
  3. 如果行中的第一个单元格（即 A2）为空白，则删除第二行
  4. 将文件另存为 csv

我不知道 VBA，稍微涉足过它，知道一些其他编程语言，并试图把它拼凑起来。我偷了一些代码来使 1 和 4 工作。我不能让 2 和 3 工作。这就是我所拥有的：

我将以下内容放入SAS中以调用vba程序-

x 'cd C:\Location';/*change to location of VBS file*/
x "vbsprogram.vbs inputfile.xls outputfile.csv";

VBA 程序 -

'1 - Open the specified excel file
if WScript.Arguments.Count < 2 Then
    WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
    Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))

'2 - Find and Replace
oBook.Worksheets(1).Range("A1:G1").Select
    Selection.Replace What:="* *", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

'3 - Delete second row if blank
oBook.Cell("A2").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

'4 - Save as csv
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit
WScript.Echo "Done"

任何为我指明正确方向的帮助将不胜感激。

此外，有没有办法选择第 1 行中的所有数据作为范围（在第 2 部分中），而不必指定一组单元格范围？

4

2 回答 2

3

尝试：

'2:   - Find and Replace
oBook.Worksheets(1).Cells(2,1).EntireRow.Replace " ", ""

'3 - Delete second row if blank
If oExcel.CountA(oBook.Worksheets(1).Cells(2,1).EntireRow) = 0 Then
  oBook.Worksheets(1).Cells(2,1).EntireRow.Delete
End If
于 2013-05-09T19:36:54.210 回答
0

根据您的输入，您需要修复原始代码的语句 (2) 和 (3)，并将第 1 行中所有单元格的值连接起来。您可以通过循环遍历与行对应的 2 个 Range 对象中的每个单元格来实现此目的1 和 2. Excel VBA 中该操作的一般语法（来源： http: //msdn.microsoft.com/en-us/library/office/aa221353%28v=office.11 ​​%29.aspx ）如下所示示例代码片段：

Sub FormatRow1()
    For Each c In Worksheets("Sheet1").Range("A1:G1").Cells
        if (c.Value) = {condition} then do something.
    Next
End Sub

仅供参考：使用运算符执行 Excel VBA 中的字符串连接&。此外，您应该使用Replace ( string1, find, replacement, [start, [count, [compare]]] )和Range(range).EntireRow.DeleteVBA 运算符来完成任务。

于 2013-05-09T19:19:31.277 回答