L'Espace Délimité Sur "Export To Text' Excel Macro Problème
J'ai le dessous de macro vba pour Exporter les cellules sélectionnées dans un fichier texte. Le problème semble être le délimiteur.
J'ai besoin de tout pour être dans une position exacte. J'ai chaque largeur de colonne à la bonne largeur(9 pour 9 comme le SSN) et j'ai les cellules de la police que Courier New(9pt) dans une Feuille Excel.
Lorsque je l'exécute il sort VRAIMENT proche de ce dont j'ai besoin, mais il ne semble pas traiter avec les colonnes qui sont juste un seul espace en largeur.
Je vais mettre de l' ENSEMBLE méthode (et de l'accompagnement de la fonction) au fond de référence mais d'abord je voudrais poster la partie je PENSE que est là que j'ai besoin de se concentrer sur. Je ne sais pas dans quel sens...
C'est là que je crois ma question est(le séparateur est défini à delimiter = ""
-->
' Loop through every cell, from left to right and top to bottom.
For RowNum = 1 To TotalRows
For ColNum = 1 To TotalCols
With Selection.Cells(RowNum, ColNum)
Dim ColWidth As Integer
ColWidth = Application.RoundUp(.ColumnWidth, 0)
' Store the current cells contents to a variable.
Select Case .HorizontalAlignment
Case xlRight
CellText = Space(Abs(ColWidth - Len(.Text))) & .Text
Case xlCenter
CellText = Space(Abs(ColWidth - Len(.Text)) / 2) & .Text & _
Space(Abs(ColWidth - Len(.Text)) / 2)
Case Else
CellText = .Text & Space(Abs(ColWidth - Len(.Text)))
End Select
End With
' Write the contents to the file.
' With or without quotation marks around the cell information.
Select Case quotes
Case vbYes
CellText = Chr(34) & CellText & Chr(34) & delimiter
Case vbNo
CellText = CellText & delimiter
End Select
Print #FNum, CellText;
' Update the status bar with the progress.
Application.StatusBar = Format((((RowNum - 1) * TotalCols) _
+ ColNum) / (TotalRows * TotalCols), "0%") & " Completed."
' Loop to the next column.
Next ColNum
' Add a linefeed character at the end of each row.
If RowNum <> TotalRows Then Print #FNum, ""
' Loop to the next row.
Next RowNum
C'est le TOUT INCLUS! Pour référence, l'original est ICI.
Sub ExportText()
'
' ExportText Macro
'
Dim delimiter As String
Dim quotes As Integer
Dim Returned As String
delimiter = ""
quotes = MsgBox("Surround Cell Information with Quotes?", vbYesNo)
' Call the WriteFile function passing the delimiter and quotes options.
Returned = WriteFile(delimiter, quotes)
' Print a message box indicating if the process was completed.
Select Case Returned
Case "Canceled"
MsgBox "The export operation was canceled."
Case "Exported"
MsgBox "The information was exported."
End Select
End Sub
'-------------------------------------------------------------------
Function WriteFile(delimiter As String, quotes As Integer) As String
' Dimension variables to be used in this function.
Dim CurFile As String
Dim SaveFileName
Dim CellText As String
Dim RowNum As Integer
Dim ColNum As Integer
Dim FNum As Integer
Dim TotalRows As Double
Dim TotalCols As Double
' Show Save As dialog box with the .TXT file name as the default.
' Test to see what kind of system this macro is being run on.
If Left(Application.OperatingSystem, 3) = "Win" Then
SaveFileName = Application.GetSaveAsFilename(CurFile, _
"Text Delimited (*.txt), *.txt", , "Text Delimited Exporter")
Else
SaveFileName = Application.GetSaveAsFilename(CurFile, _
"TEXT", , "Text Delimited Exporter")
End If
' Check to see if Cancel was clicked.
If SaveFileName = False Then
WriteFile = "Canceled"
Exit Function
End If
' Obtain the next free file number.
FNum = FreeFile()
' Open the selected file name for data output.
Open SaveFileName For Output As #FNum
' Store the total number of rows and columns to variables.
TotalRows = Selection.Rows.Count
TotalCols = Selection.Columns.Count
' Loop through every cell, from left to right and top to bottom.
For RowNum = 1 To TotalRows
For ColNum = 1 To TotalCols
With Selection.Cells(RowNum, ColNum)
Dim ColWidth As Integer
ColWidth = Application.RoundUp(.ColumnWidth, 0)
' Store the current cells contents to a variable.
Select Case .HorizontalAlignment
Case xlRight
CellText = Space(Abs(ColWidth - Len(.Text))) & .Text
Case xlCenter
CellText = Space(Abs(ColWidth - Len(.Text)) / 2) & .Text & _
Space(Abs(ColWidth - Len(.Text)) / 2)
Case Else
CellText = .Text & Space(Abs(ColWidth - Len(.Text)))
End Select
End With
' Write the contents to the file.
' With or without quotation marks around the cell information.
Select Case quotes
Case vbYes
CellText = Chr(34) & CellText & Chr(34) & delimiter
Case vbNo
CellText = CellText & delimiter
End Select
Print #FNum, CellText;
' Update the status bar with the progress.
Application.StatusBar = Format((((RowNum - 1) * TotalCols) _
+ ColNum) / (TotalRows * TotalCols), "0%") & " Completed."
' Loop to the next column.
Next ColNum
' Add a linefeed character at the end of each row.
If RowNum <> TotalRows Then Print #FNum, ""
' Loop to the next row.
Next RowNum
' Close the .prn file.
Close #FNum
' Reset the status bar.
Application.StatusBar = False
WriteFile = "Exported"
End Function
D'Autres Découvertes
J'ai découvert qu'il ya quelque chose de mal avec Case xlCenter
ci-dessous. C'est vendredi et je n'ai pas été capable d'envelopper ma tête autour de lui, mais encore tout ce qu'elle fait dans ce case
a été de retirer les " ". J'ai vérifié cela en définissant toutes les colonnes à Gauche Justifiée, de sorte que le Case Else
serait utilisé à la place et à l'ALTO! Mon espace est resté. J'aimerais comprendre pourquoi, mais en fin de compte, il est Une) de travail et B). e.James solution est de mieux de toute façon.
Merci pour l'aide.
Dim ColWidth As Integer
ColWidth = Application.RoundUp(.ColumnWidth, 0)
' Store the current cells contents to a variable.
Select Case .HorizontalAlignment
Case xlRight
CellText = Space(Abs(ColWidth - Len(.Text))) & .Text
Case xlCenter
CellText = Space(Abs(ColWidth - Len(.Text)) / 2) & .Text & _
Space(Abs(ColWidth - Len(.Text)) / 2)
Case Else
CellText = .Text & Space(Abs(ColWidth - Len(.Text)))
End Select
Je vais essayer. Je ne peux pas afficher le fichier tel qu'il a des informations sensibles sur elle. L'ensemble de l'exportation devraient être 360 "positions" de large. Sur 400 dossiers environ 15 où "plus large" puis 360 par une position ou 2. Position 10 (deuxième colonne) est de 1 et le vide. Ce qui manquait sur TOUTES les lignes. Les 15 qui ont été trop large, étaient tous originaires de la même colonne (Adresse de la Rue de la Position 186-210)
Je crois que je vois le problème avec votre centrage code. Imaginez que la largeur de la colonne est fixée à 20, et le texte de cette colonne est "bonjour". Ensuite, votre code sera mis 7 ou 8 espaces de chaque côté du texte (selon le 15/2 est arrondi), et ce sera la cause de votre longueur totale soit 19 ou 21, mais certainement pas 20!
Je vais ajouter un peu de code dans ma réponse à apporter une solution
OriginalL'auteur Refracted Paladin | 2010-01-15
Vous devez vous connecter pour publier un commentaire.
Je pense que le problème provient de votre utilisation de la largeur de la colonne que le nombre de caractères à utiliser. Lorsque j'ai mis une largeur de colonne à 1.0 dans Excel, tout numéros de affichée dans cette colonne tout simplement disparaître, et VBA montre que la
.Text
propriété de ces cellules est "", ce qui est logique, puisque le.Text
propriété vous donne le texte exact qui est visible dans Excel.Maintenant, vous avez deux options ici:
Utiliser le
.Value
de la propriété au lieu de la.Text
de la propriété. L'inconvénient de cette approche est qu'il va jeter le nombre de mise en forme que vous avez appliquées dans la feuille de calcul (je ne suis pas sûr si c'est un problème dans votre cas)Au lieu d'utiliser les largeurs de colonne, placez une rangée de valeurs en haut de votre feuille de calcul (rangée 1) indiquez la largeur de chaque colonne, puis d'utiliser ces valeurs dans votre code VBA au lieu de la largeur de la colonne. Ensuite, vous pouvez faire vos colonnes un peu plus large dans Excel (de sorte que le texte s'affiche correctement)
Je serais probablement aller avec #2, mais, bien sûr, je ne sais pas beaucoup au sujet de votre installation, donc je ne peux pas dire pour sûr.
edit: La solution de contournement suivante peut faire l'affaire. J'ai modifié votre code pour utiliser la
Value
etNumberFormat
propriétés de chaque cellule, au lieu d'utiliser le.Text
de la propriété. Cela devrait prendre soin des problèmes avec un caractère de large cellules.mise à jour: pour prendre soin de l'centrage problème, je voudrais faire le suivant:
De cette façon, le rembourrage sur le côté droit du texte sera automatiquement couvrir le reste de l'espace.
Pas mal du tout 🙂
OriginalL'auteur e.James
Avez-vous essayé tout simplement de l'enregistrer comme l'espace est délimité? Ma compréhension est qu'il va traiter de la largeur de colonne comme le nombre de places, mais je n'ai pas essayé tous les scénarios. De le faire avec Excel 2007 semble fonctionner pour moi, ou je ne comprends pas assez de votre question. J'ai essayé avec une colonne de largeur=1 et le rendu que 1 de l'espace dans le fichier texte obtenu.
OriginalL'auteur Jim L