Comment empêcher Excel de manger mes délicieux fichiers CSV et d'excréter des données inutiles ?

Nous avions un problème similaire avec des fichiers CSV dont les colonnes contenaient des plages telles que 3-5 et Excel les convertissait toujours en dates, par exemple 3-5 devenait 3 mars, après quoi le retour en numérique nous donnait une date entière inutile. Nous avons contourné ce problème en

1. Renommer l'extension CSV en TXT
2. Ensuite, lorsque nous l'avons ouvert dans Excel, cela a déclenché l'assistant d'importation de texte.
3. À l'étape 3 sur 3 de l'assistant nous lui avons dit que les colonnes en question étaient du texte et ils ont importé correctement.

Vous pourriez faire la même chose ici, je pense.

Cheers

La meilleure solution consiste à générer un classeur XML. Comme ceci :

<?xml version="1.0" encoding="UTF-8"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
  </OfficeDocumentSettings>

  <ss:Worksheet ss:Name="Sheet 1">
    <Table>
    <Column ss:Width="100"/>
    <Column ss:Width="100"/>
    <Column ss:Width="150"/>
    <Column ss:Width="150"/>
    <Column ss:Width="150"/>
    <Column ss:Width="150"/>
    <Column ss:Width="80"/>
    <Column/>

    <Row>
      <Cell><Data ss:Type="String">Account Number</Data></Cell>
      <Cell><Data ss:Type="String">Store Name</Data></Cell>
      <Cell><Data ss:Type="String">S1</Data></Cell>
      <Cell><Data ss:Type="String">S2</Data></Cell>
      <Cell><Data ss:Type="String">S3</Data></Cell>
      <Cell><Data ss:Type="String">Widget Type</Data></Cell>
      <Cell><Data ss:Type="String">Date</Data></Cell>
    </Row>

    <Row>
      <Cell><Data ss:Type="String">4173</Data></Cell>
      <Cell><Data ss:Type="String">SpeedyCorp</Data></Cell>
      <Cell><Data ss:Type="String">268435459705526269</Data></Cell>
      <Cell><Data ss:Type="String">x</Data></Cell>
      <Cell><Data ss:Type="String">268435459705526269</Data></Cell>
      <Cell><Data ss:Type="String">848 Model Widget</Data></Cell>
      <Cell><Data ss:Type="String">2011-01-17</Data></Cell>
    </Row>

    </Table>
    <x:WorksheetOptions/>
  </ss:Worksheet>
</Workbook>

Le fichier doit avoir une extension .xml. Excel et OpenOffice l'ouvrent correctement.

Ma solution : J'ai le même problème avec l'importation des numéros de série. Ils n'ont pas besoin d'être traités comme des nombres, c'est-à-dire qu'aucune fonction mathématique n'est exécutée dessus, mais nous avons besoin du numéro complet. La solution la plus simple que j'ai trouvée est d'insérer un espace dans le numéro de série. Par exemple "12345678 90123456 1234". Quand Excel l'importera, il sera traité comme du texte au lieu d'un numérique.

L'assistant d'importation est la meilleure solution pour les utilisateurs occasionnels et les situations ponctuelles. Si vous avez besoin d'une solution programmatique, vous pouvez utiliser la méthode QueryTables.Add (qui est celle que l'assistant d'importation utilise en coulisse).

Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & "C:\myfile.csv", Destination:=Range("$A$1"))
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 2, 2) 'Edit this line. Add a number for each column, 1 is general, 2 is text. Search the internet for other formats.
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With