Omdøbe kolonne i Excel
Hej alle !jeg har denne kode, som virker som den skal :
Sub auto_open()
'
'
'
'
'
Dim DirFile As String
DirFile = "C:\#_Import\Carpools.xlsx"
If Len(Dir(DirFile)) <> 0 Then
SetAttr DirFile, vbNormal
Kill DirFile
End If
Workbooks.Open Filename:="C:\#_Import\temp\RadGridExport.xlsx"
ChDir "C:\#_Import"
ActiveWorkbook.SaveAs Filename:="C:\#_Import\Carpools.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Dim DirFile2 As String
DirFile2 = "C:\#_Import\temp\RadGridExport.xlsx"
If Len(Dir(DirFile2)) <> 0 Then
SetAttr DirFile2, vbNormal
Kill DirFile2
End If
Workbooks.Open Filename:="C:\#_Import\Carpools.xlsx"
'ændring af kolonnenavn
'lukning af "Carpools.xlsx"
End Sub
------
Dog er der en kolonne jeg gerne vil have omdøbt fra " Start Date" til "Start Date" ( der er et foranstående mellemrum, som jeg kan vil slette pr. automatik ..
Det drejer sig specifikt om celle "O1" i filen "Carpools.xlsx"
Håber på nogle gode indspark...
mvh martens