处理一个单元格中的多个值以导出为 CSV
Handling Multiple Values in One Cell to Export To CSV
我正在尝试设计一个 VBA 脚本，它将值从 Excel 电子表格导出到 CSV 文件。这将用于通过单独的 Powershell 脚本部署多个虚拟机。
目前，导出到 CSV 操作正在处理每个单元格中的一个 VM 名称和相应的设置，但是，在脚本的实际执行中，我们可能在一个单元格中有多个 VM 名称（以逗号分隔），但是在进行中的单元格中具有相同的设置。
我想知道的是 possible/how 是否 possible/how 将那个单元格中用逗号分隔的值填充到单独的一行，但仍然在适当的标题下进行设置CSV 文件。
代码：
Function BuildValuesString(colIndex As String, rows As String) As String
Dim val As Variant
For Each val In Split(rows, ",")
If Cells(val, colIndex) <> "" Then BuildValuesString = BuildValuesString & Cells(val, colIndex).Value & ","
Next val
End Function
Function BuildNullStrings(numNullStrings As Long) As String
Dim iNullStrings As Long
For iNullStrings = 1 To numNullStrings
BuildNullStrings = BuildNullStrings & "" & ","
Next iNullStrings
End Function
Sub WriteCSVFile2()
Dim My_filenumber As Integer
Dim logSTR As String
My_filenumber = FreeFile
logSTR = logSTR & "Srv. Descr." & ","
logSTR = logSTR & "E-mail" & ","
logSTR = logSTR & "Env." & ","
logSTR = logSTR & "Prot. Level" & ","
logSTR = logSTR & "DataC" & ","
logSTR = logSTR & "# VMs" & ","
logSTR = logSTR & "Name" & ","
logSTR = logSTR & "Cluster" & ","
logSTR = logSTR & "VLAN" & ","
logSTR = logSTR & "NumCPU" & ","
logSTR = logSTR & "MemoryGB" & ","
logSTR = logSTR & "C_System" & ","
logSTR = logSTR & "D_Homevg" & ","
logSTR = logSTR & "App_eHealth" & ","
logSTR = logSTR & "TotalDisk" & ","
logSTR = logSTR & "Datastore" & ","
logSTR = logSTR & "Template" & ","
logSTR = logSTR & Chr(13)
logSTR = logSTR & BuildValuesString("C", "18,19,20,21,22,26,27,28,29,30,31,32,33,34")
logSTR = logSTR & TotalIt(Range("C32:C33"))
logSTR = logSTR & Chr(13)
logSTR = logSTR & BuildNullStrings(5)
logSTR = logSTR & BuildValuesString("C", "18,19,20,21,22,37,38,39,40,41,42,43,44,46")
logSTR = logSTR & TotalIt(Range("C43:C44"))
logSTR = logSTR & Chr(13)
logSTR = logSTR & BuildNullStrings(5)
logSTR = logSTR & BuildValuesString("C", "18,19,20,21,22,48,49,50,51,52,53,54,55,58")
logSTR = logSTR & TotalIt(Range("C54:C55"))
Open "Z:\Operational Env. Requests16\Requests(Test)\" & ThisWorkbook.Name & ".csv" For Append As #My_filenumber
Print #My_filenumber, logSTR
Close #My_filenumber
End Sub
Function TotalIt(rng As Range)
Dim c, arr, t, rv As Double, v
For Each c In rng.Cells
If Len(c.Value) > 0 Then
arr = Split(c.Value, ",")
For Each v In arr
If IsNumeric(v) Then rv = rv + v
Next v
Exit For
End If
Next c
TotalIt = rv
End Function
即
如果单元格 C:27 有 "VM1, VM2, VM3"，请将每个值分隔在不同的行上，但仍然输入与其他 headers.
关联的值
目前 VBA 脚本将输入值作为：
Name Cluster VLAN NumCPU MemoryGB
VM1 VM2 VM3 VMCluster VLAN1 etc.
我希望它做的是
Name Cluster VLAN
VM1 VMCluster VLAN1
VM2 VMCluster VLAN1
VM3 VMCluster VLAN1
如果我尝试以当前格式执行 VBA 脚本，它会完全弄乱对齐。我希望就如何实现预期结果获得一些帮助。
感谢您提供的任何帮助
这过于简单化了，但是根据您在 A-C 列中的名称、集群和 VLAN 的简化示例，这会将其采用并将输出拆分为 CSV。
Sub SplitToCsv()
Dim rw, lastRow As Long
Dim ws As Worksheet
Dim vms, vm, rowData As Variant
Set ws = Sheets("Sheet1")
lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Open "C:\test.csv" For Output As #1
For rw = 1 To lastRow
vms = Split(ws.Cells(rw, 1).Value2, ",")
For Each vm In vms
Print #1, Join(Array(vm, ws.Cells(rw, 2).Value2, ws.Cells(rw, 3).Value2), ",")
Next vm
Next rw
Close #1
End Sub
这会将其作为输入：
Name Cluster VLAN
VM1,VM2,VM3 VMCluster VLAN1
VM4 VMCluster2 VLAN2
VM5,VM6 VMCluster3 VLAN3
并将其转换成如下所示的文件：
Name,Cluster,VLAN
VM1,VMCluster,VLAN1
VM2,VMCluster,VLAN1
VM3,VMCluster,VLAN1
VM4,VMCluster2,VLAN2
VM5,VMCluster3,VLAN3
VM6,VMCluster3,VLAN3
-- 编辑 2017 年 1 月 3 日 --
我想我现在明白了。这是您的代码的精简/重构版本。我可能是错的，但我相信这就是你想要做的：
Sub WriteCSVFile2()
Dim My_filenumber As Integer
Dim header, line As String
Dim values, vlan, names As Variant
Dim row As Integer
My_filenumber = FreeFile
Open "c:\cdh\" & ThisWorkbook.Name & ".csv" For Append As #My_filenumber
Print #My_filenumber, Join(Array("Srv. Descr.", "E-mail", "Env.", _
"Prot. Level", "DataC", "# VMs", "Name", "Cluster", "VLAN", _
"NumCPU", "MemoryGB", "C_System", "D_Homevg", "App_eHealth", _
"TotalDisk", "Datastore", "Template"), ",")
header = Join(Application.Transpose(Range("C18:C22").Value), ",")
For row = 26 To 50 Step 12
values = Application.Transpose(Range("C" & row & ":C" & row + 8).Value)
names = values(2)
For Each vlan In Split(names, ",")
values(2) = vlan
line = Join(values, ",")
Print #My_filenumber, header & "," & line
Next vlan
Next row
' TotalIt(Range("C54:C55"))
Close #My_filenumber
End Sub
一些注意事项：
- 我注释掉 TotalIt 只是因为我认为它有效并且没有专注于那部分
- 您的代码查看了第 26、37、48 行，但电子表格实际上在第 26、38、50 行（另外一行）有引用。我的代码反映了后者
我认为如果您添加更多配置选项，较小的代码库将更易于调试并且有望更具可扩展性。
这是我的输出：
Srv. Descr.,E-mail,Env.,Prot. Level,DataC,# VMs,Name,Cluster,VLAN,...
Service,Email,Environment,Protection,Data Center,,VM1,VMCluster,VLAN1 etc.,,,,,
Service,Email,Environment,Protection,Data Center,,VM2,VMCluster,VLAN1 etc.,,,,,
Service,Email,Environment,Protection,Data Center,,VM3,VMCluster,VLAN1 etc.,,,,,
我正在尝试设计一个 VBA 脚本，它将值从 Excel 电子表格导出到 CSV 文件。这将用于通过单独的 Powershell 脚本部署多个虚拟机。
目前，导出到 CSV 操作正在处理每个单元格中的一个 VM 名称和相应的设置，但是，在脚本的实际执行中，我们可能在一个单元格中有多个 VM 名称（以逗号分隔），但是在进行中的单元格中具有相同的设置。
我想知道的是 possible/how 是否 possible/how 将那个单元格中用逗号分隔的值填充到单独的一行，但仍然在适当的标题下进行设置CSV 文件。
代码：
Function BuildValuesString(colIndex As String, rows As String) As String
Dim val As Variant
For Each val In Split(rows, ",")
If Cells(val, colIndex) <> "" Then BuildValuesString = BuildValuesString & Cells(val, colIndex).Value & ","
Next val
End Function
Function BuildNullStrings(numNullStrings As Long) As String
Dim iNullStrings As Long
For iNullStrings = 1 To numNullStrings
BuildNullStrings = BuildNullStrings & "" & ","
Next iNullStrings
End Function
Sub WriteCSVFile2()
Dim My_filenumber As Integer
Dim logSTR As String
My_filenumber = FreeFile
logSTR = logSTR & "Srv. Descr." & ","
logSTR = logSTR & "E-mail" & ","
logSTR = logSTR & "Env." & ","
logSTR = logSTR & "Prot. Level" & ","
logSTR = logSTR & "DataC" & ","
logSTR = logSTR & "# VMs" & ","
logSTR = logSTR & "Name" & ","
logSTR = logSTR & "Cluster" & ","
logSTR = logSTR & "VLAN" & ","
logSTR = logSTR & "NumCPU" & ","
logSTR = logSTR & "MemoryGB" & ","
logSTR = logSTR & "C_System" & ","
logSTR = logSTR & "D_Homevg" & ","
logSTR = logSTR & "App_eHealth" & ","
logSTR = logSTR & "TotalDisk" & ","
logSTR = logSTR & "Datastore" & ","
logSTR = logSTR & "Template" & ","
logSTR = logSTR & Chr(13)
logSTR = logSTR & BuildValuesString("C", "18,19,20,21,22,26,27,28,29,30,31,32,33,34")
logSTR = logSTR & TotalIt(Range("C32:C33"))
logSTR = logSTR & Chr(13)
logSTR = logSTR & BuildNullStrings(5)
logSTR = logSTR & BuildValuesString("C", "18,19,20,21,22,37,38,39,40,41,42,43,44,46")
logSTR = logSTR & TotalIt(Range("C43:C44"))
logSTR = logSTR & Chr(13)
logSTR = logSTR & BuildNullStrings(5)
logSTR = logSTR & BuildValuesString("C", "18,19,20,21,22,48,49,50,51,52,53,54,55,58")
logSTR = logSTR & TotalIt(Range("C54:C55"))
Open "Z:\Operational Env. Requests16\Requests(Test)\" & ThisWorkbook.Name & ".csv" For Append As #My_filenumber
Print #My_filenumber, logSTR
Close #My_filenumber
End Sub
Function TotalIt(rng As Range)
Dim c, arr, t, rv As Double, v
For Each c In rng.Cells
If Len(c.Value) > 0 Then
arr = Split(c.Value, ",")
For Each v In arr
If IsNumeric(v) Then rv = rv + v
Next v
Exit For
End If
Next c
TotalIt = rv
End Function
即 如果单元格 C:27 有 "VM1, VM2, VM3"，请将每个值分隔在不同的行上，但仍然输入与其他 headers.
关联的值目前 VBA 脚本将输入值作为：
Name Cluster VLAN NumCPU MemoryGB
VM1 VM2 VM3 VMCluster VLAN1 etc.
我希望它做的是
Name Cluster VLAN
VM1 VMCluster VLAN1
VM2 VMCluster VLAN1
VM3 VMCluster VLAN1
如果我尝试以当前格式执行 VBA 脚本，它会完全弄乱对齐。我希望就如何实现预期结果获得一些帮助。
感谢您提供的任何帮助
这过于简单化了，但是根据您在 A-C 列中的名称、集群和 VLAN 的简化示例，这会将其采用并将输出拆分为 CSV。
Sub SplitToCsv()
Dim rw, lastRow As Long
Dim ws As Worksheet
Dim vms, vm, rowData As Variant
Set ws = Sheets("Sheet1")
lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Open "C:\test.csv" For Output As #1
For rw = 1 To lastRow
vms = Split(ws.Cells(rw, 1).Value2, ",")
For Each vm In vms
Print #1, Join(Array(vm, ws.Cells(rw, 2).Value2, ws.Cells(rw, 3).Value2), ",")
Next vm
Next rw
Close #1
End Sub
这会将其作为输入：
Name Cluster VLAN
VM1,VM2,VM3 VMCluster VLAN1
VM4 VMCluster2 VLAN2
VM5,VM6 VMCluster3 VLAN3
并将其转换成如下所示的文件：
Name,Cluster,VLAN
VM1,VMCluster,VLAN1
VM2,VMCluster,VLAN1
VM3,VMCluster,VLAN1
VM4,VMCluster2,VLAN2
VM5,VMCluster3,VLAN3
VM6,VMCluster3,VLAN3
-- 编辑 2017 年 1 月 3 日 --
我想我现在明白了。这是您的代码的精简/重构版本。我可能是错的，但我相信这就是你想要做的：
Sub WriteCSVFile2()
Dim My_filenumber As Integer
Dim header, line As String
Dim values, vlan, names As Variant
Dim row As Integer
My_filenumber = FreeFile
Open "c:\cdh\" & ThisWorkbook.Name & ".csv" For Append As #My_filenumber
Print #My_filenumber, Join(Array("Srv. Descr.", "E-mail", "Env.", _
"Prot. Level", "DataC", "# VMs", "Name", "Cluster", "VLAN", _
"NumCPU", "MemoryGB", "C_System", "D_Homevg", "App_eHealth", _
"TotalDisk", "Datastore", "Template"), ",")
header = Join(Application.Transpose(Range("C18:C22").Value), ",")
For row = 26 To 50 Step 12
values = Application.Transpose(Range("C" & row & ":C" & row + 8).Value)
names = values(2)
For Each vlan In Split(names, ",")
values(2) = vlan
line = Join(values, ",")
Print #My_filenumber, header & "," & line
Next vlan
Next row
' TotalIt(Range("C54:C55"))
Close #My_filenumber
End Sub
一些注意事项：
- 我注释掉 TotalIt 只是因为我认为它有效并且没有专注于那部分
- 您的代码查看了第 26、37、48 行，但电子表格实际上在第 26、38、50 行（另外一行）有引用。我的代码反映了后者
我认为如果您添加更多配置选项，较小的代码库将更易于调试并且有望更具可扩展性。
这是我的输出：
Srv. Descr.,E-mail,Env.,Prot. Level,DataC,# VMs,Name,Cluster,VLAN,...
Service,Email,Environment,Protection,Data Center,,VM1,VMCluster,VLAN1 etc.,,,,,
Service,Email,Environment,Protection,Data Center,,VM2,VMCluster,VLAN1 etc.,,,,,
Service,Email,Environment,Protection,Data Center,,VM3,VMCluster,VLAN1 etc.,,,,,