Hallo zusammen,
ich habe folgendes Problem: ich würde gerne mittels VBS eine .txt Datei in Excel öffen und damit dann einige Formatierungen vornehmen. z.B. Header in fetter Schrift und grau hinterlegt oder einige Spalten ausblenden - das habe ich auch soweit mit diesem Code geschafft:
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("D:\Projekte\BMW_Motorsport\tceng2005\ugs\temp\catiman\Import\SpreadSheet.txt")
objExcel.Columns("A:A").EntireColumn.Hidden = True
objExcel.Range("A1:W1").Select
objExcel.Selection.Font.Bold = True
objExcel.Selection.Interior.ColorIndex = 15
Set objExcel = Nothing
Jetzt müsste ich aber noch eine bedingte Formatierung umsetzten - z.B. wenn eine Zelle in Spalte A leer ist, dann soll sie rot hinterlegt werden. Zudem müsste ich Werte aus verschiedenen Zellen in einer Zelle zusammenfassen...
Da ich ein absoluter Neuling auf diesem Gebiet bin, würde ich mich über jede Hilfe sehr freuen!
Vielen Dank und schöne Grüße
Ombre
ich habe folgendes Problem: ich würde gerne mittels VBS eine .txt Datei in Excel öffen und damit dann einige Formatierungen vornehmen. z.B. Header in fetter Schrift und grau hinterlegt oder einige Spalten ausblenden - das habe ich auch soweit mit diesem Code geschafft:
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("D:\Projekte\BMW_Motorsport\tceng2005\ugs\temp\catiman\Import\SpreadSheet.txt")
objExcel.Columns("A:A").EntireColumn.Hidden = True
objExcel.Range("A1:W1").Select
objExcel.Selection.Font.Bold = True
objExcel.Selection.Interior.ColorIndex = 15
Set objExcel = Nothing
Jetzt müsste ich aber noch eine bedingte Formatierung umsetzten - z.B. wenn eine Zelle in Spalte A leer ist, dann soll sie rot hinterlegt werden. Zudem müsste ich Werte aus verschiedenen Zellen in einer Zelle zusammenfassen...
Da ich ein absoluter Neuling auf diesem Gebiet bin, würde ich mich über jede Hilfe sehr freuen!
Vielen Dank und schöne Grüße
Ombre