Macro Mise en forme d'un file csv

J'utilise une macro pour générer un file avec 3 colonnes (A, B, C) et enregistrez-le dans un csv. J'ai tout fonctionner bien sauf lorsque je l'enregistre. Le file enregistre correctement, mais il enregistre toutes les lignes dans les colonnes après datatables avec un "" "dans les lignes de chaque ligne. J'ai besoin de nettoyer. La ligne de finition sera différente tous les jours, et je dois supprimer de la première ligne ouverte à la fin du classur.

J'ai essayé ceci:

Selection.End(xlDown).Select Range("A100:C100").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Delete Shift:=xlUp 

Mais la reference de la cellule changera tous les jours, alors j'ai essayé:

 Selection.End(xlDown).Select Range("A:C").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Delete Shift:=xlUp 

et maintenant il supprime toutes datatables. Toute aide sera excellente. Voici un exemple de mes données et de la façon dont elles apparaissent. Je dois me débarrasser de tout le "" "et ceux-ci apparaissent seulement lorsque je le visualise dans le bloc-notes, mais le programme que j'utilise regarde le" "" comme donnée

• Utilisation du dictionary privé dans un module
• Comment get des données d'une colonne d'une feuille par c #
• Formule de préservation Excel Python XLWT
• En utilisant org.apache.poi.ss.examples.html.ToHtml.create (…) dans Android crashes
• C # comment ouvrir un file Excel s'il existe, créer un file Excel si ce n'est pas le cas, à partir de WinForm?

  6/27/2012 0:00,aaaa,-0.011111 6/27/2012 0:00,bbbb,-0.22222 6/27/2012 0:00,cccc,-0.03333 6/27/2012 0:00,ddddd,-0.0044 6/27/2012 0:00,xxxxxx,-0.0555 ' ' ' ' ' ' ' ' ' ' 

• Comparez avec les colonnes Excel, les cellules de sortie dans A qui n'apparaissent pas dans B
• Validation des données avec vba
• Conversion d'un graphique Excel en image
• Réorganiser la table en deux files plats
• Comment puis-je faire glisser des lignes à partir d'un DataGrid et les déposer dans Excel?

 Dim rng As Range Set rng = Columns(1).Find("""") Range(rng, rng.End(xlDown).End(xlToRight)).EntireRow.Delete