J'ai une feuille de calcul Excel avec environ 100 cols. Est-ce que quelqu'un sait d'un moyen facile d'écrire le contenu de chaque colonne dans un fichier csv ou txt?Exportation de chaque colonne Excel vers des fichiers texte ou csv individuels?
0
A
Répondre
0
Je n'ai pas Excel devant moi, mais je pense que ce code est à peu près ce dont vous avez besoin, donnez ou prenez des erreurs de syntaxe. Il devrait écrire chaque colonne dans un fichier séparé, avec chaque cellule sur une ligne différente. Cela fonctionnera pour des hauteurs de colonnes arbitraires, bien que le nombre de colonnes soit dans une variable (pour l'instant).
dim fso as FileSystemObject
dim ts as TextStream
dim i as Integer
dim myCell as Range
set fso = FileSystemObject
for i = 0 to TotalColumnNumber
' last argument, True, says to create the text file if it doesnt exist, which is
' good for us in this case
Set ts = fso.OpenTextFile("column_" & i, ForWriting, True)
' set mycell to the first cell in the ith column
set myCell = SheetName.cells(1,i)
' continue looping down the column until you reach a blank cell
' writing each cell value as you go
do until mycell.value = ""
ts.writeline mycell.value
set myCell = myCell.offset(1,0)
loop
ts.close
next
set ts = nothing
set fso = nothing
Faites-moi savoir si cela aide ou non, je peux prendre un autre regard plus tard si vous voulez
0
Peut-être
Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim i As Integer
''This is not the best way to refer to the workbook
''you want, but it is very conveient for notes
''It is probably best to use the name of the workbook.
strFile = ActiveWorkbook.FullName
''Note that if HDR=No, F1,F2 etc are used for column names,
''if HDR=Yes, the names in the first row of the range
''can be used.
''This is the Jet 4 connection string, you can get more
''here : http://www.connectionstrings.com/excel
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
''Late binding, so no reference is needed
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
''WHERE 1=1 = headers only, note hdr=yes above
strSQL = "SELECT * " _
& "FROM [Sheet1$] " _
& "WHERE 1=1"
''Open the recordset for more processing
''Cursor Type: 3, adOpenStatic
''Lock Type: 3, adLockOptimistic
''Not everything can be done with every cirsor type and
''lock type. See http://www.w3schools.com/ado/met_rs_open.asp
rs.Open strSQL, cn, 3, 3
''Output including nulls. Note that this will fail if the file
''exists.
For i = 0 To rs.Fields.Count - 1
strSQL = "SELECT [" & rs.Fields(i).Name & "] " _
& "INTO [Text;HDR=YES;FMT=Delimited;IMEX=2;DATABASE=C:\Docs\]." _
& rs.Fields(i).Name & ".CSV " _
& "FROM [Sheet1$] "
''To skip nulls and empty cells, add a WHERE statement
''& "WHERE Trim([" & rs.Fields(i).Name & "] & '')<>'' "
cn.Execute strSQL
Next
''Tidy up
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
0
Une ligne très rapide pour vous aider à démarrer ...
for i = 1 to 100
open "file" & i & ".txt" as #1
for each c in columns(i).cells
print #1, c.value
next c
close #1
next i
Questions connexes
- 1. Exportation de lignes Excel sous forme de fichiers XML individuels
- 2. Rails - boucle CSV (exportation vers CSV)
- 3. Différents résultats exportant vers CSV ou Excel
- 4. Exportation de données SQL Server vers CSV
- 5. Exportation de la grille Mvccontrib vers Excel
- 6. Exportation Java - Fichiers texte
- 7. Problème Excel vers .csv
- 8. Exportation Asp.net vers csv et culture
- 9. Exportation d'un jeu de données vers Excel
- 10. Téléchargement de fichiers individuels vers l'installation Appengine
- 11. Comment exporter des colonnes de texte 'lookal date' vers csv
- 12. Exportation ReportViewer vers Excel - Largeur ligne variation
- 13. exportation de données SQL Server vers Excel
- 14. Exportation de SQL Server vers Excel avec des en-têtes de colonne?
- 15. Exportation de données de profileur Java VisualVM .nps vers Excel
- 16. Exportation de données MSSqlServer2000 vers un fichier texte?
- 17. Exportation d'une grille de données dojo vers un fichier csv
- 18. Exportation de données de CRM 4.0 vers Excel
- 19. Importer des fichiers CSV multilignes dans Excel internationalement
- 20. sortie exportation php Excel
- 21. Un fichier CSS ou des fichiers CSS individuels pour chaque page?
- 22. Exportation de tableaux vers Excel/Mot en utilisant POI
- 23. Fichiers CSV et cellules de texte multiligne
- 24. Exportation de SSRS vers Excel sans en-tête
- 25. Exportation du résultat de la requête SQL vers Excel
- 26. Exportation csv SSRS avec virgule dans les noms d'en-tête de colonne
- 27. Outil d'importation Excel CSV
- 28. ORACLE - Exportation de procédures/packages vers un fichier
- 29. Étrange exportation Excel OLEDB Problème
- 30. Classe de génération/exportation de fichiers Microsoft Excel PHP