Note: The other languages of the website are Google-translated. Back to English

Conas baisc comhaid iolracha CSV a thiontú go comhaid XLS (X) in Excel?

Tá sé an-éasca duit comhad CSV a thiontú go comhad XlS nó XLSX tríd an ngné Save As a chur i bhfeidhm. Tógann sé go leor ama, áfach, chun comhaid CSV iolracha a thiontú go comhaid XLS nó XLSX ó fhillteán trí shábháil ceann ar cheann de láimh. Seo a thugann mé macra-chód isteach chun gach comhad CSV a thiontú go comhaid XLS (x) ó fhillteán go tapa.

Tiontaigh baisc comhaid CSV go comhaid XlS (X) le macra-chód


Tiontaigh baisc comhaid CSV go comhaid XlS (X) le macra-chód

Chun comhaid CSV iolracha a thiontú ó fhillteán amháin go comhaid XLS (X), is féidir leat déanamh mar atá thíos céimeanna:

1. Cumasaigh leabhar oibre nua, brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus cliceáil Ionsáigh > Modúil. Féach an pictiúr:
baisc doc tiontú cvs xls 1

nótaí: Déan cinnte go bhfuil gach comhad CSV a theastaíonn uait a thiontú dúnta.

2. Ansin greamaigh thíos an cód macra chuig an Modúil script, agus brúigh F5 eochair chun an cód a rith.

VBA: Tiontaigh CSV go XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. Sa dialóg popping amach, roghnaigh an fillteán sonraithe ina bhfuil na comhaid CSV a theastaíonn uait a thiontú. Féach an pictiúr:
baisc doc tiontú cvs xls 2

4. cliceáil OK, athraíodh na comhaid CSV go léir san fhillteán roghnaithe go comhaid XLS ann.
baisc doc tiontú cvs xls 3

Leid: Más mian leat comhaid CSV a thiontú go comhaid XLSX, úsáideann tú thíos cód VBA.

VBA: Tiontaigh comhaid CSV go XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

raon bileog a thiontú nó a easpórtáil go tapa chun comhaid XLS / Word / PDF nó formáid eile a scaradh in aon uair amháin

De ghnáth, ní thacaíonn Excel leat le rogha raon a easpórtáil nó a shábháil go tapa mar chomhad CSV nó Excel. Más mian leat raon sonraí a shábháil mar CSV nó mar leabhar oibre in Excel, b’fhéidir go mbeidh ort Macra VBA a úsáid chun é seo a dhéanamh nó chun an raon a chóipeáil go gearrthaisce agus é a ghreamú i leabhar oibre nua agus ansin an leabhar oibre a shábháil mar CSV nó Leabhar Oibre. Kutools le haghaidh Excel méadaíonn Excel le Raon Easpórtála go Comhad fóntais d’úsáideoirí Excel ar mian leo na hoibríochtaí seo a leanas a phróiseáil go tapa :  Cliceáil le haghaidh 30-lá triail iomlán saor in aisce le feiceáil!
doc raon cille a onnmhairiú go comhad
 
Kutools le haghaidh Excel: le níos mó ná 300 breiseán handy Excel, saor in aisce chun iarracht a dhéanamh gan aon teorainn i 30 lá.

Ailt Choibhneasta:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (38)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom a mhalairt a dhéanamh - XLS a thiontú go CSV. an n-oibríonn an script seo?
Fo CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd Mar FileDialog
Dim xSPath Mar Teaghrán
Dim xXLSFile Mar Teaghrán
Dim xWsheet Mar Teaghrán
Application.DisplayAlerts = Bréagach
Application.StatusBar = Fíor
xWsheet = ActiveWorkbook.Name
Socraigh xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Roghnaigh fillteán:"
Má tá xFd.Show = -1 Ansin
xSPath = xFd.Items Roghnaithe(1)
Eile
Fo-Scoir
Deireadh Má
Más Ceart(xSPath, 1) <> "\" Ansin xSPath = xSPath + "\"
xXLSFile = Dir(xSPath & "*.xls")
Déan Cé go bhfuil xXLSFile <>"""
Application.StatusBar = "Tiontú:" &xXLSFile
Workbooks.Open Filename:=xSPath & xXLSFile
ActiveWorkbook.SaveAs Replace(xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
Leabhar Oibre Gníomhach.Dún
Windows(xWsheet). Gníomhachtaigh
xXLSFile = Dir
Lúb
Application.StatusBar = Bréagach
Application.DisplayAlerts = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-thiontúCSVToXlsx()



Dim myfile Mar Teaghrán

Dim oldfname As Teaghrán, newfname As Teaghrán

Comhad oibre dim

Dim folderName As Teaghrán



Application.DisplayAlerts = Bréagach

Application.ScreenUpdating = Bréagach



' Gabh ainm an chomhaid reatha

myfile = ActiveWorkbook.Name



' Socraigh ainm an fhillteáin chun oibriú tríd

folderName = "D:\tmp\"



' Lúb tríd gach comhad CSV san fhillteán

workfile = Dir(folderName & "*.CSV")

Déan Agus an comhad oibre <>"""

' Oscail comhad CSV

Workbooks.Open Filename:=folderName & workfile

' Gabh ainm an tseanchomhaid CSV

oldfname = ActiveWorkbook.FullName

' Tiontaigh go XLSX

newfname = folderName & Ar Chlé(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx"

ActiveWorkbook.SaveAs Comhadainm:=ainm nua, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=Fíor

Leabhar Oibre Gníomhach.Dún

' Scrios seanchomhad CSV

Maraigh seanainm

Windows (myfile). Gníomhachtaigh

comhad oibre = Dir()

Lúb



Application.DisplayAlerts = Fíor

Feidhmchlár.ScreenUpdating = Fíor



Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
"Leid: Más mian leat comhaid CSV a thiontú go comhaid XLXS, níl le déanamh agat ach .xls a athrú go .xlsx sa mhacra ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare)."

Bhain mé triail as seo, agus níorbh fhéidir le Excel na comhaid mar thoradh air a oscailt. Fuair ​​mé an teachtaireacht seo a leanas: "Ní féidir le Excel an comhad 'filename.xlsx' a oscailt toisc nach bhfuil formáid an chomhaid nó an iarmhír comhaid bailí. Deimhnigh nach bhfuil an comhad truaillithe agus go bhfuil an iarmhír comhaid ag teacht le formáid an chomhaid."

Mar sin féin, d'éirigh leis an script a thiontú go .xls.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní bhfuair mé an fhadhb sin roimhe seo, go raibh maith agat as do thuairim cheart. Tá an leid ceartaithe agam.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as do script den scoth le haghaidh CSV go XLS. Tá sé i bhfad níos úsáidí do mo chuid oibre
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Tá do script go hiontach ach ní thiontaíonn sé an csv scartha le leathcholúin. An féidir leat réiteach a phostáil dóibh siúd le do thoil?

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm, níl aon réiteach agam anseo, b'fhéidir gur féidir leat do cheist a chur ar ár bhfóram, b'fhéidir go gcuideoidh duine éigin eile leat. https://www.extendoffice.com/forum.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
seans go bhfuil mé déanach fuair mé an cheist nuair a bhí orm na comhaid CSV leathstad a thiontú agus chuir mé é seo leis an gcód agus d'oibrigh sé ag súil go gcabhróidh sé seo le duine éigin

Athraigh 'Workbooks.Open Filename:=xSPath & xCSVFile' Leis an 'Leabhair Oibre seo.Open Filename:=xSPath & xCSVFile, Teorainneora:=";", Logánta:=Fíor'
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'úsáid mé an comhad csv iolrach go xls iolracha ach fuair mé mícheart tá comhaid xls de csv ; eolas deighilte ach a bheith le chéile i gcealla. Conas is féidir é seo a réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní féidir leis an gcód tacú leis an gcomhad csv camóg scartha.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a thug mé ainm an fhillteáin, dúirt an clár, "Níl aon chomhaid ag teacht le do chuardach." Ach tá 2,609 comhad .csv san fhillteán
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní thacaíonn an cód leis an gcomhad csv camóg scartha, an bhfuil do chomhaid sa chás seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

alt iontach - go raibh maith agat! Oibríonn beagnach dom.

Seo an fhadhb: Tá comhad csv teorantach le píopa agam. D'athraigh mé an teorannóir réamhshocraithe fuinneoga (trí phainéal rialaithe/socruithe réigiúnacha) go "|". Mar sin, nuair a osclaíonn mé an comhad csv le Excel, osclaíonn sé, léann go díreach agus parsálann sé na réimsí go colúin i gceart. Níl le déanamh agam ach sábháil mar xls nó xlsx, déanta. Nuair a fhéachaim ar do chód, ba cheart gurb é sin a dhéanann an cód: Osclaíonn sé na comhaid csv i bhfillteán, sábhálann sé iad mar xls nó xlsx, agus lúbann sé sin.

Seo an fhadhb: Nuair a osclaíonn mé na comhaid Excel sin, tá na teorannóirí píopaí fós ann, níl aon rud parsáilte chuig na colúin. Ba é seo an t-iompar mar a rinne mé roimh mo athrú ar an socrú réamhshocraithe píopa teorannaithe i socruithe Windows. Mar sin is cosúil nach n-úsáideann Excel na socruithe Windows sin. D'fhíoraigh mé é seo trí theorainneacha camóg a chur in ionad na teorannóirí píobáin i gcóip den chomhad - den dá chomhad, d'fhan an teorannú píopa gan parsáil, d'éirigh leis an teorainn le camóg a thiontú go breá.

Aon smaoineamh ar féidir an teorannú camóg sin a ionsuite i Excel a fháil nó a athrú, nó an bhfuil bealach sa chód chun é sin a dhéanamh? B'fhearr liom NACH mbeadh orm cuardach a dhéanamh agus athsholáthar a dhéanamh, ansin sábháil ...

Go raibh maith agat, HC
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Más mian leat na sonraí a roinnt ina gcolún bunaithe ar an teorannóir píopa in Excel, bain úsáid as feidhm Téacs go Colúin chun sonraí a roinnt trí / tar éis na comhaid csv a chlúdach go xls.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní dhéanann sé an cód úsáideach i ndáiríre do chomhaid excel.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, script iontach a d'oibrigh dom tar éis triail a bhaint as gach script eile atá ar fáil in google. Tá cúpla líne breise curtha agam a dhéanann an oibríocht téacs go colúin atá uaim. An féidir le haon duine cabhrú liom conas an script a mhionathrú trí shuíomh an fhillteáin sa tiomántán logánta a shonrú in ionad an bosca dialóige a oscailt agus an córas á uathoibriú agam
. Go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi
An bhféadfá an script a fheidhmíonn an téacs a roinnt le colúin??
Maidir is Fearr
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Script iontach tar éis cuardach a dhéanamh ar gach script eile atá ar fáil in google. An féidir le haon duine cabhrú leis an script seo a mhodhnú trí shuíomh fillteáin a shonrú sa tiomántán áitiúil in ionad ligean dó an bosca dialóige a oscailt agus an córas á uathoibriú agam. Go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Greannmhar cód. An-úsáideach. Mura bhfuil dul amú orm féachann an cód le haghaidh .xlsx mar an gcéanna leis an gcód .xls.

an líne seo:
ActiveWorkbook.SaveAs Ionadaigh(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

Glacaim leis gur chóir go mbeadh sé: ".csv", ".xlsx", vbTextCompare etc.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'athraigh mé an cód mar sin, cur síos air thuas; anois oibríonn an script mar a bhíothas ag súil: gineann sé comhaid xlsx
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
níl níl agat. deir sé xls fós sa dá leagan.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
ní thaispeánann an macra seo mo chomhad csv
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Saincheist bheag amháin a bhaineann leis an gcód seo ná gur féidir cruinneas áirithe (líon deachúlacha) a chailleadh nuair a bhíonn csv á oscailt agus á shábháil mar xlsx.
Is é an bealach chun é seo a chosc ná gach cill a roghnú díreach tar éis oscailt, líon na n-ionad deachúil a shocrú go dtí an méid atá ag teastáil (15 domsa go pearsanta), agus *ansin* a shábháil mar xlsx

Seachas sin, tá níos lú sonraí ag an xlsx (níos lú cruinneas i dtéarmaí deachúlacha) ná an csv bunaidh, rud a d’fhéadfadh fadhbanna a bheith ann i roinnt feidhmchlár
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
athraíonn sé formáid mo cholúin dáta ó dd-mm-bbbb go dd/mm/bbbb, le do thoil an féidir le haon duine cabhrú le conas an script seo a chosc ó fhormáidí colúin a athrú.
Go raibh maith agat go leor.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, viper, tar éis comhshó, is féidir leat iad a fhormáid ar ais, roghnaigh na dátaí agus cliceáil ar dheis chun Cealla Formáid a roghnú ón roghchlár comhthéacs, sa Formáid Celld dialóg, faoi Uimhir tab, cliceáil Saincheaptha sa liosta Catagóir, ansin cineál mm-dd- yyyy isteach sa bhosca téacs sa chuid ar dheis. Nó má tá Kutools le haghaidh Excel agat, an Formáidiú Dáta Iarratas a chur i bhfeidhm chun an fhormáid dáta a athrú de réir mar is gá duit.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
alt iontach. Conas is féidir liom na comhaid go léir a chomhshó a shábháil i suíomh nua? An féidir leat an cód a nuashonrú le do thoil agus é a sheoladh chugam. Cosúil le ligean don úsáideoir a fhillteán ceann scríbe a roghnú.


Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá earráid agat ar líne 22 den csv go xlsx
Le Earráid - Ionadaigh ActiveWorkbook.SaveAs(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
Ceartaithe - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as do mheabhrúchán, tá sé nuashonraithe agam, go raibh maith agat arís.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faighim earráid "Ní athróg réad nó athróg bloc socraithe" don líne seo:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> is é seo an cosán d'fhillteán ar leith ar mo ríomhaire ina bhfuil mé ag déanamh an chomhshó (tá dornán comhaid csv san fhillteán )

An bhfuil rud éigin mícheart á dhéanamh agam anseo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo ag obair domsa, ach níl an síneadh comhad ag athrú. Aon leideanna?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar an gcéanna domsa - fanann gach comhad .csv.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sábháladh na comhaid csv go léir a roghnaíonn tú mar chomhaid excel nua, ní athraíonn na comhaid bhunaidh (csv), tá comhaid excel nua ann a bhfuil an t-ábhar céanna acu.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí an fhadhb chéanna agam. Má tá fairsingiú i gceannlitreacha (.CSV) ag do bhunchomhad ní oibríonn sé. Cuir an cód i líne 22 in ionad .csv go .CSV agus ansin ba cheart go n-oibreodh sé. Bhuel, ar a laghad domsa rinne sé.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a dhéanfainn cód a ionchorprú i ngnáthamh comhaid bhaisc XLSX chun na sonraí a dheighilt i gcolúin ar leith i leathstad? Tiontaíonn an cód roinnte an comhad ó .csv go .xlsx, ach ní scarann ​​sé na sonraí ina gcolúin ar leith.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
sea ​​ní obair é.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Buenos dias compañeros

Is éard atá i gceist leis an script, is féidir leat a thiontú go meáin chumarsáide agus an téacs i gcolún, chun an rogha a dhéanamh nó a shaincheapadh ar na tréithe a bhaineann le hábhar, le gach ceann de na gnéithe éagsúla de na codanna éagsúla. Is féidir leat a bheith cinnte go bhfuil tú ag déanamh cartlainne ar leithligh agus le hiarratas a dhéanamh ar an rogha téacs sa cholún, bajo é an rogha is fearr leis na fadhbanna sin a thiontú, aibítir na haono, an t-ainm atá ar an macra agus an t-iarratas ar an macra agus na cearta sin, cuimsitheach úsáid a bhaint as an rogha de "TEAGAIRTÍ USAR RELATIVAS", níl aon nós leis an bpróiseas, chun an rogha a dhéanamh de na teorainneacha atá sa chartlann chun é a úsáid, tá sé riachtanach go bhfuil an comhad nua agus an t-árthach, mar shampla, agus mar sin féin. y le hiciera manualmente la opción de delimitación and no appliqué valores de las columnas identificados en el archives ejemplo.

Cuir isteach é seo an rogha sa chartlann, mar sin beidh toirmeasc ar an indico ar an líne arriba, aonair a éileamh saber mar a dhéanann tú iarratas a dhéanamh chun an comhad a chomhshó ina chartlann, iarratas a dhéanamh ar theorainneacha an champa mar a bhfuil an chartlann nua.


Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Ionadaigh(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault

ESTA PARTE ES LA QUE AGREGUE APLICANDO EL FORMATO DEL TEXTO A COLUMNAS

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Eagar(Eagar(0, 1), Eagar(18 _
, 1), Eagar(38, 1)), TrailingMinusNumbers:=Fíor
ActiveCell.Cells.Roghnaigh
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Raon("A1").Roghnaigh
Leabhar Oibre Gníomhach.Sábháil

HASTA AQUI AGEGUE YO

Leabhar Oibre Gníomhach.Dún
Windows(xWsheet). Gníomhachtaigh
xCSVFile = Dir

Lúb
Application.StatusBar = Bréagach
Application.DisplayAlerts = Fíor
Fo Deireadh

Níl sé seo dom ach go soiléir, daoine a bhfuil fadhbanna agam.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL