Excel模板：以批處理模式導入CSV

Question

我需要創建一個模板（MS Excel），用於在Excel中導入CSV數據（錯誤日誌）。

1. 我已設置的條件格式，如果一個呼叫的值大於0時，單元格顏色，必須自動地改變到RED而對於值= 0，單元格顏色，必須是綠色的。

2. 我將該文件保存爲Excel模板。

3. 現在我想將CSV數據導入從上述模板創建的新XLSX文檔（使用條件格式），並以批處理模式自動安全結果。

我使用下面的命令：

"C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" /e "C:\Work\errors.log" /t "C:\Work\ABFTest.xltx"

而是將數據加載到從ABFTest.xltx模板，命令打開兩個Excel文件，包含CSV之一創建一個新的Excel文件的數據和從模板創建的其他文件。

有沒有辦法解決這個問題？

Answer 1

@Mubeen Shahid我根據您的原始請求編寫了下面的代碼片段，因此它現在不會完全滿足您的新條件。如果它沒有用，那麼不管丟掉它。

該代碼將讀取.csv文件並將其格式化爲表1中的單個列。對於此示例，.csv文件被稱爲「NosToCol.csv」，並且您必須提供自己的路徑，因此顯示<>。參數可以在代碼片段中更改以適應。

Sub ReadCSVFile() 

Dim ws As Worksheet 
Dim fName As String, Txt1 As String, tmpvar As String 
Dim fRow As Long, lRow As Long, Rw As Long 
Dim Col As Long, rec As Long 
Dim wrng As Range, cl As Range 
Dim ifnum As Integer 
Dim rearr(), wrarr 

Set ws = Sheets("Sheet1") 
fName = "<<yourpath>>\NosToCol.csv" 
fRow = 2 'Row 2 
Col = 1 'Col A 
Txt1 = "" 
ifnum = 1 

    With ws 
     lRow = .Cells(Rows.Count, Col).End(xlUp).Row 

     'READ DATA FROM FILE 
     Open fName For Input Access Read As #ifnum 
     rec = 0 
      Do While Not EOF(ifnum) 
       Line Input #ifnum, tmpvar 
       rec = rec + 1 
       ReDim Preserve rearr(1 To rec) 
       rearr(rec) = tmpvar 
      Loop 
      Close #ifnum 

     'WRITE DATA TO RANGE 
      For c = 1 To rec 
       wrarr = Split(rearr(c), ",") 
       Set wrng = .Range(.Cells(fRow, Col), .Cells(fRow + UBound(wrarr, 1), Col)) 
       '.Range(.Cells(fRow, Col), .Cells(fRow + UBound(wrarr, 1), Col)).Value = Application.Transpose(wrarr) 
       wrng.Value = Application.Transpose(wrarr) 
       c = c + 1 
        'MODIFY CELL COLOUR 
        For Each cl In wrng 
         If cl = 0 Then cl.Interior.Color = vbRed Else cl.Interior.Color = vbGreen 
        Next cl 
      Next c 
    End With 
End Sub