txt delimiter et excel

Question

bonjour tout le monde,

je cherche a ouvrir un fichier txt et l'enregistrer en xls 
je ne parvient pas à delimité.

j'ai trouvé cette exemple ,mais il y a des erreur
Dim

 FSO : FSO = CreateObject(
"Scripting.FileSystemObject")

Dim waExcel : waExcel = CreateObject(
"Excel.Application") 
'Ouverture d'ExcelStrPath = 

"C:\Donnees\Rapport"
'Chemin d'accŠs du fichier

If Right(StrPath, 1) <> 
""
Then StrPath = StrPath & 
""
'Ajoute \ … la fin s'il y en a pasStrFich = 

"Igli07_aout.txt"
'Nom du fichier

If FSO.FileExists(StrPath & StrFich) 
Then
'Existance du fichierwaExcel.Visible = 

False
'Rendre invisible Excel

'Importe le fichier texte vers une feuille Excel de fa‡on Largeur fixe avec d‚limiteur : Tabulation et SpacewaExcel.Workbooks.OpenText(StrPath & StrFich, , , 2, , , 

True, , , 
True)

'Sauvegarde la feuiller importer vers le chemin d'accŠs de d‚part en motifiant l'extension et en mode partag‚ pour ‚viter des erreurswaExcel.Workbooks(StrFich).SaveAs(StrPath & Left(StrFich, Len(StrFich) - 4) & 

".xls", , , , , , 2)

End
If

'Fermeture d'ExcelwaExcel.Application.Quit()

quelqu'un peut m'aider s'il vous plait

Merci
cyrille

cs_loulou69 · Answer

bonjour

Où est le problème?

Regarde tous les paramètres de OpenText et SaveAs sur l'aide d'Excel 
Ta réponse se trouve dans les paramètres

Renfield · Answer

StrPath = "C:\Donnees\Rapport"
If Right(StrPath, 1) <> "" Then StrPath = StrPath & ""

pourquoi le "" ne serait il pas présent ?


demarre l'enregistrement de macro, sous excel
ouvre ton fichier et regarde le code généré

Txt delimiter et excel

2 réponses

Votre réponse

Discussions similaires