Alterando o limite da coluna CSV do Excel

0

Quando eu importo arquivos de texto delimitados por til, o Excel 365 os trunca em 50 colunas, e as colunas restantes são descartadas silenciosamente. Não consigo encontrar uma configuração que controle esse limite. Como posso importar arquivos delimitados com mais de 50 colunas?

Aqui está uma única linha do arquivo (425 colunas):

Schema_InvcHead~RptLanguageID~AGAuthorizationCode~AGAuthorizationDate~AGDocConcept~AGDocumentLetter~AGInvoicingPoint~AGLegalNumber~AGPrintingControlType~AGUseGoodDefaultMark~ApplyDate~ARLOCID~AutoPrintReady~BillingDate~BillingNumber~BillToInvoiceAddress~BlockedFinChrg~BlockedFinChrgReason~BlockedRemLetters~BlockedRemLettersReason~BranchID~ChangeDate~ChangedBy~ChangeTime~CHISRCodeLine~CMReason~CMType~CNConfirmDate~CNTaxInvoiceType~CollectionsCust~Company~Consolidated~ContractDate~ContractRef~CopyLatestInvoice~CorrectionInv~CounterARForm~CreditMemo~CurrRateDate~CustAgentName~CustAgentTaxRegNo~CustNum~CycleCode~CycleInactive~DebitNote~Deferred~DepositAmt~DepositCredit~DepUnallocatedAmt~DNComments~DNCustNbr~DocDepApplied~DocDepositAmt~DocDepositCredit~DocDepUnallocatedAmt~DocInvoiceAmt~DocMaxValueAmt~DocPECharges~DocPECommissions~DocPEDetTaxAmt~DocPEDischargeAmt~DocPEInterest~DocPENoPayPenalty~DocRecurBalance~DocRounding~DocumentPrinted~DocWithholdAmt~DueDate~Duration~EDIReady~EInvException~EInvoice~EInvRefNum~EInvStatus~EInvTimestamp~EInvUpdatedBy~EndDate~Excluded~ExportDocDate~ExportDocRefNum~ExportReportNo~ExportType~FiscalCalendarID~FiscalYearSuffix~GUIDateOfExport~GUIDeductCode~GUIExportBillNumber~GUIExportBillType~GUIExportMark~GUIExportType~GUIFormatCode~GUITaxTypeCode~HeadNum~HoldInvoice~INExportProcedure~InPrice~INShippingPortCode~InstanceNum~INTaxTransactionID~InvInCollections~InvoiceAmt~InvoiceComment~InvoiceDate~InvoiceNum~InvoiceNumList~InvoiceRef~InvoiceType~IsAddedToGTI~IsRecurring~LastChrgCalcDate~LastDate~LegalNumber~LockTaxRate~MainSite~MaxValueAmt~MXAccountNumber~MXApprovalNum~MXApprovalYear~MXCancellationMode~MXCancelledDate~MXCBB~MXCertificate~MXCertificateSN~MXCertifiedTimestamp~MXConfirmationCode~MXDigitalSeal~MXDomesticTransfer~MXExportCertOrigin~MXExportCertOriginNum~MXExportConfNum~MXExportCustDocCode~MXExportOperationType~MXExternalCode~MXFiscalFolio~MXFolio~MXIncoterm~MXInvoiceRelationType~MXMovingReason~MXMovingReasonFlag~MXNumRegIdTrib~MXOriginalAmount~MXOriginalDate~MXOriginalFolio~MXOriginalSeries~MXOriginalString~MXOriginalStringTFD~MXPaidAs~MXPartPmt~MXPaymentName~MXPaymentNum~MXPostedTimeStamp~MXPurchaseType~MXResidenCountryNum~MXSATCertificateSN~MXSATSeal~MXSerie~MXTaxRcptType~MXTaxRegime~MXTotalPayments~OrdExchangeRate~OrigDueDate~OurBank~OurSupplierCode~Overpaid~OverrideEndDate~OvrDefTaxDate~PayDiscDays~PayDiscPartPay~PayDiscPer~PBProjectID~PEAPPayNum~PEBankNumber~PEBOEIsMultiGen~PEBOEPosted~PEBOEStatus~PECharges~PECommissions~PEDebitNote~PEDebitNoteReasonCode~PEDetTaxAmt~PEDetTaxCurrencyCode~PEDischargeAmt~PEDischargeDate~PEGuaranteeAddress1~PEGuaranteeAddress2~PEGuaranteeAddress3~PEGuaranteeCity~PEGuaranteeCountry~PEGuaranteeName~PEGuaranteePhoneNum~PEGuaranteeState~PEGuaranteeTaxID~PEGuaranteeZip~PEInterest~PENoPayPenalty~PEReasonCode~PEReasonDesc~PERefDocID~PESUNATDepAmt~PESUNATDepDate~PESUNATDepNum~PIPayment~Plant~PMUID~PONum~PostedRecog~RateGrpCode~ReadyToBill~ReadyToCalc~RealEstateNo~RecalcBeforePost~RecurBalance~RecurringState~RecurSource~RefCancelled~RefCancelledBy~ReversalDocAmount~RevisionDate~RevisionNum~Rounding~Rpt1DepGainLoss~Rpt1DepositAmt~Rpt1DepUnallocatedAmt~Rpt1MaxValueAmt~Rpt1PECharges~Rpt1PECommissions~Rpt1PEDischargeAmt~Rpt1PEInterest~Rpt1PENoPayPenalty~Rpt1RecurBalance~Rpt1WithholdAmt~Rpt2DepGainLoss~Rpt2DepositAmt~Rpt2DepUnallocatedAmt~Rpt2MaxValueAmt~Rpt2PECharges~Rpt2PECommissions~Rpt2PEDischargeAmt~Rpt2PEInterest~Rpt2PENoPayPenalty~Rpt2RecurBalance~Rpt2WithholdAmt~Rpt3DepGainLoss~Rpt3DepositAmt~Rpt3DepUnallocatedAmt~Rpt3MaxValueAmt~Rpt3PECharges~Rpt3PECommissions~Rpt3PEDischargeAmt~Rpt3PEInterest~Rpt3PENoPayPenalty~Rpt3RecurBalance~Rpt3WithholdAmt~SEBankRef~ServiceInvoice~ShipDate~SiteCode~SoldToCustNum~SoldToInvoiceAddress~SummarizationDate~SysRevID~SysRowID~TaxPoint~TaxRateDate~TaxRateGrpCode~TaxRegionCode~THIsImmatAdjustment~TotFinChrg~TranDocTypeID~TWDeclarePeriod~TWDeclareYear~TWGenerationType~TWGUIExportDocumentName~TWGUIExportRemarks~TWGUIExportVerification~TWGUIGroup~TWGUIRegNumBuyer~TWGUIRegNumSeller~TWPeriodPrefix~UseAltBillTo~UseAltBillToID~WithholdAmt~WithTaxConfirm~XRefContractDate~XRefContractNum~Division_c~Calc_BillToAddressList~Calc_BottomAddress~Calc_BTAddressList~Calc_CHBankAcctIBANCode~Calc_CHBankAcctISRPartyID~Calc_CompanyAddressList~Calc_ConReference~Calc_ConStartDate~Calc_CounterARForm~Calc_CreditMemo~Calc_CurrDesc~Calc_CurrDocDecimalsGeneral~Calc_CurrDocDecimalsPrice~Calc_CurrDocDesc~Calc_CurSymbol~Calc_CustContactName~Calc_CustEMailAddress~Calc_CustFax~Calc_CustID~Calc_CustPartOpts~Calc_CustPhone~Calc_CustResaleID~Calc_DiscountTotal~Calc_DocDspTaxAmt~Calc_DocInvoiceAmt~Calc_DropShipPackSlip~Calc_DteOrdrd~Calc_ExtPriceTotal~Calc_fFOB~Calc_GuiFormatCodeDesc~Calc_InvoiceRefDate~Calc_InvoiceRefLegalNumber~Calc_InvSubTotal~Calc_InvSuffix~Calc_IsBaseCurr~Calc_IsDraftCopy~Calc_MscTotal~Calc_MtlTotal~Calc_MulPackNum~Calc_mulponum~Calc_MulShipDate~Calc_MulShipTo~Calc_MulShipVia~Calc_MulShpCon~Calc_MultSoldTo~Calc_MultTaxID~Calc_MXApprovalNumber~Calc_MXApprovalYear~Calc_MXCBB~Calc_MXCertificateSN~Calc_MXCertifiedTimeStamp~Calc_MXDigitalSeal~Calc_MXExpeditionAddress~Calc_MXFiscalFolio~Calc_MXFolio~Calc_MXOrigFiscalFolio~Calc_MXOrigFiscalFolioAmount~Calc_MXOrigFiscalFolioDate~Calc_MXOrigFiscalFolioSeries~Calc_MXOriginalString1~Calc_MXOriginalString10~Calc_MXOriginalString2~Calc_MXOriginalString3~Calc_MXOriginalString4~Calc_MXOriginalString5~Calc_MXOriginalString6~Calc_MXOriginalString7~Calc_MXOriginalString8~Calc_MXOriginalString9~Calc_MXOriginalStringTFD~Calc_MXPaidAs~Calc_MXPaymentAccountNum~Calc_MXPaymentMethod~Calc_MXPaymentNum~Calc_MXSATCertificateSN~Calc_MXSATSeal~Calc_MXSerie~Calc_MXTaxRegime~Calc_MXTotalPayments~Calc_NumRecordPerPage~Calc_NumTotalParts~Calc_PackNum~Calc_PELegalText~Calc_PeriodEndDate~Calc_PPAllowPcnt~Calc_PrintBottomAddress~Calc_RefInvAmt~Calc_RefInvNum~Calc_RevisionDate~Calc_RevisionNum~Calc_RUBTLegalName~Calc_RUCorrToInvDate~Calc_RUCorrToInvLegalNumber~Calc_RUCorrToInvRevDate~Calc_RUCorrToInvRevNum~Calc_RULessDeposits~Calc_RusNumber~Calc_SalesPerson~Calc_SalesTerms~Calc_SEBankRef~Calc_ShipDate~Calc_ShipTo~Calc_ShipToAddressList~Calc_ShipToContactName~Calc_ShipVia~Calc_ShpConNum~Calc_SoldToAddressList~Calc_SubTotal~Calc_TaxMethod~Calc_TotalMiscChrg~Calc_vDocPayAmounts~Calc_VoucherString~Calc_Voucher-String~Calc_vPayAmounts~Calc_vPayDates~CurrencyCode_CurrDesc~CurrencyCode_CurrName~CurrencyCode_CurrSymbol~CurrencyCode_DocumentDesc~Customer_BTName~Customer_CustID~Customer_Name~Customer_TradingPartnerName~FOB_DeliveryTerms~FOB_Description~Plant_Address1~Plant_Address2~Plant_Address3~Plant_City~Plant_Company~Plant_CountryNum~Plant_Name~RMANum_RMADate~RMANum_RMANum~RMANum_ShipToNum~RMANum_XRefRMANumber~TermsCode_Description~TermsCode_NumberOfPayments~TermsCode_TermsCode~

Se eu colocar essa linha em um arquivo e tentar importá-la para o Excel, a opção de selecionar o delimitador desaparecerá (não desativada, desaparecerá completamente da interface do usuário) e será tratada como uma única coluna. OO Calc importa a linha única ou o arquivo completo sem problemas.

    
por TKK 20.06.2018 / 22:45

2 respostas

1

A partir de um pouco de teste, parece que os dados > De texto / CSV não solicita que você analisar o arquivo e dividi-lo em colunas (sem outra etapa manual).

Eu testei esse método e ele funciona com o Excel 365 (versão 1805; obrigado pela nota no botão Procurar):

  1. No Excel, navegue até Arquivo > Abra
  2. Selecione Navegar para que a caixa de diálogo de seleção de arquivos seja exibida
  3. Altere a lista suspensa Tipo de arquivo de Todos os arquivos do Excel para "Todos os arquivos (*. *)"
  4. Navegue e selecione seu arquivo delimitado por til

Neste ponto, o Assistente para importação de texto deve exibir

  1. Na seção Tipo de dados original, verifique se Delimitado está selecionado e clique em Avançar
  2. Na seção de delimitadores, desmarque Tab e marque Other; digite ~ na caixa ao lado de Outro e clique em Próximo

Outros comentários mencionados na opção "Tratar delimitadores consecutivos como um" são encontrados nessa tela. Deixe desmarcada, mas se você não obtiver os resultados esperados, tente novamente com esta opção marcada

  1. A terceira e última etapa do Assistente para importação de texto fornece uma visualização dos dados analisados e permite alterar os tipos de dados das colunas. Faça as alterações desejadas e clique em Concluir
  2. Você deve ver seus dados em uma planilha do Excel como seria de esperar com todas as colunas que esperava.
por 22.06.2018 / 21:05
0

Tente esta macro VBA curta:

Sub tildaReader()
    FilesToOpen = Application.GetOpenFilename
    Close #1
   Open FilesToOpen For Input As #1

   j = 1
   Do While Not EOF(1)
        Line Input #1, TextLine
        arr = Split(TextLine, "~")
        Cells(j, 1).Resize(1, UBound(arr) + 1).Value = arr
        j = j + 1
   Loop

   Close #1
End Sub

arquivo típico:

resultado:

EDIT#1:

Asmacrossãomuitofáceisdeinstalareusar:

  1. ALT-F11exibeajaneladoVBE
  2. ALT-IALT-Mabreumnovomódulo
  3. coleomaterialefecheajaneladoVBE

Sevocêsalvarapastadetrabalho,amacroserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx

Pararemoveramacro:

  1. abrirajaneladoVBEcomoacima
  2. limpeocódigo
  3. fecheajaneladoVBE

ParausaramacrodajaneladoExcel:

  1. ALT-F8
  2. Selecioneamacro
  3. ToqueemEXECUTAR

Parasabermaissobremacrosemgeral,consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!

    
por 21.06.2018 / 00:33