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

Excel'de birden çok CSV dosyasını XLS (X) dosyalarına toplu olarak nasıl dönüştürebilirim?

Farklı Kaydet özelliğini uygulayarak bir CSV dosyasını XlS veya XLSX dosyasına dönüştürmek sizin için çok kolaydır. Ancak, birden çok CSV dosyasını bir klasörden XLS veya XLSX dosyalarına dönüştürmek, tek tek manuel olarak kaydederek zaman alıcıdır. Burada, tüm CSV dosyalarını bir klasörden XLS (x) dosyalarına hızlı bir şekilde toplu olarak dönüştürmek için bir makro kodu sunuyoruz.

Makro koduyla CSV dosyalarını XlS (X) dosyalarına toplu dönüştürün


Makro koduyla CSV dosyalarını XlS (X) dosyalarına toplu dönüştürün

Birden çok CSV dosyasını bir klasörden XLS (X) dosyalarına dönüştürmek için aşağıdaki adımları uygulayabilirsiniz:

1. Yeni bir çalışma kitabını etkinleştirin, Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere ve tıklayın Ekle > modül. Ekran görüntüsüne bakın:
doc toplu dönüştürme cvs xls 1

not: Dönüştürmek istediğiniz tüm CSV dosyalarının kapalı olduğundan emin olun.

2. Ardından makro kodunun altına yapıştırın. modül komut dosyası ve basın F5 kodu çalıştırmak için anahtar.

VBA: CSV'yi XLS'ye dönüştürme

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. Açılan iletişim kutusunda, dönüştürmek istediğiniz CSV dosyalarını içeren belirtilen klasörü seçin. Ekran görüntüsüne bakın:
doc toplu dönüştürme cvs xls 2

4. tık OK, seçili klasördeki tüm CSV dosyaları içindeki XLS dosyalarına dönüştürülmüştür.
doc toplu dönüştürme cvs xls 3

Bahşiş: CSV dosyalarını XLSX dosyalarına dönüştürmek istiyorsanız aşağıdaki VBA kodunu kullanırsınız.

VBA: CSV dosyalarını XLSX'e dönüştürün

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

XLS / Word / PDF veya diğer format dosyalarını bir defada ayırmak için bir sayfa aralığını hızlı bir şekilde dönüştürün veya dışa aktarın

Normalde, Excel bir aralığı hızlı bir şekilde dışa aktarma veya CSV veya Excel dosyası olarak kaydetme seçeneği sunmaz. Bir dizi veriyi Excel'de CSV veya çalışma kitabı olarak kaydetmek istiyorsanız, bunu yapmak için bir VBA Makrosu kullanmanız veya aralığı panoya kopyalayıp yeni bir çalışma kitabına yapıştırmanız ve ardından çalışma kitabını CSV olarak kaydetmeniz gerekebilir veya Çalışma kitabı. Kutools for Excel Excel'i artırır Aralığı Dosyaya Aktar aşağıdaki işlemleri hızlı bir şekilde gerçekleştirmek isteyen Excel kullanıcıları için yardımcı program :  Için tıklayınız 30günlük tam özellikli ücretsiz deneme!
doc hücre aralığını dosyaya aktar
 
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile, hiçbir sınırlama olmadan denemesi ücretsiz 30 gün.

İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (38)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben tam tersini yapmak istiyorum - XLS'yi CSV'ye dönüştürün. bu komut dosyası çalışıyor mu?
Alt CSVtoXLS()
'güncellemeExtendoffice20170814
xFd'yi FileDialog Olarak Kısma
Dize olarak xSPath'ı karart
Dize Olarak Dim xXLSFile
xWsheet'i Dize Olarak Karartın
Application.DisplayAlerts = Yanlış
Application.StatusBar = Doğru
xWsheet = ActiveWorkbook.Name
xFd olarak ayarlayın = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Bir klasör seçin:"
xFd.Show = -1 ise
xSPath = xFd.SelectedItems(1)
başka
Exit Sub
Eğer son
Eğer Right(xSPath, 1) <> "\" O zaman xSPath = xSPath + "\"
xXLSFile = Dir(xSPath & "*.xls")
xXLSFile iken Yap <> ""
Application.StatusBar = "Dönüştürülüyor: " & xXLSFile
Workbooks.Open Dosya Adı:=xSPath & xXLSFile
ActiveWorkbook.SaveAs Replace(xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Etkinleştir
xXLSFile = Yön
döngü
Application.StatusBar = Yanlış
Application.DisplayAlerts = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alt ConvertCSVToXlsx()



Dosyamı Dize Olarak Karart

Oldfname As String, newfname As String

Çalışma dosyasını karart

Klasörün Adını Dize Olarak Kıs



Application.DisplayAlerts = Yanlış

Application.ScreenUpdating = Yanlış



' Geçerli dosyanın adını yakala

dosyam = ActiveWorkbook.Name



' Üzerinde çalışılacak klasör adını ayarlayın

klasörAdı = "D:\tmp\"



' Klasördeki tüm CSV dosyaları arasında dolaşın

workfile = Dir(klasörAdı & "*.CSV")

Çalışma Dosyası Yaparken Yap <> ""

' CSV dosyasını aç

Workbooks.Open Dosya Adı:=klasörAdı ve çalışma dosyası

' Eski CSV dosyasının adını yakala

eskifname = ActiveWorkbook.FullName

' XLSX'e Dönüştür

newfname = folderName & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx"

ActiveWorkbook.SaveAs Dosya Adı:=newfname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True

ActiveWorkbook.Close

' Eski CSV dosyasını sil

eskifname öldür

Windows(dosyam).Etkinleştir

çalışma dosyası = Dir()

döngü



Application.DisplayAlerts = True

Application.ScreenUpdating = True



End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
"İpucu: CSV dosyalarını XLXS dosyalarına dönüştürmek istiyorsanız, ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare) makrosunda .xls'yi .xlsx olarak değiştirmeniz yeterlidir."

Bunu denedim ve Excel ortaya çıkan dosyaları açamadı. Aşağıdaki mesajı aldım: "Dosya biçimi veya dosya uzantısı geçerli olmadığı için Excel 'dosyaadı.xlsx' dosyasını açamıyor. Dosyanın bozuk olmadığını ve dosya uzantısının dosya biçimiyle eşleştiğini doğrulayın."

Ancak, komut dosyası .xls'ye dönüştürmek için başarılı oldu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Daha önce bu sorunu bulamadım, doğru yorumunuz için teşekkür ederim. İpucunu düzelttim.
Bu yorum sitedeki moderatör tarafından en aza indirildi

Bu yorum sitedeki moderatör tarafından en aza indirildi
CSV'den XLS'ye mükemmel betiğiniz için çok teşekkür ederiz. benim işim için çok daha yararlı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Komut dosyanız harika ancak noktalı virgülle ayrılmış csv'yi dönüştürmüyor. Lütfen bunlara bir çözüm yazar mısınız?

teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Üzgünüm, burada herhangi bir çözümüm yok, belki sorunuzu forumumuza iletebilirsiniz, başka biri size yardımcı olabilir. https://www.extendoffice.com/forum.html
Bu yorum sitedeki moderatör tarafından en aza indirildi
geç kalmış olabilirim, noktalı virgül CSV dosyalarını dönüştürmem gereken sorunu yeni anladım ve bunu koda ekledim ve işe yaradı umarım bu birine yardımcı olur

'Workbooks.Open Filename:=xSPath & xCSVFile' öğesini değiştirin Bu 'Workbooks.Open Filename:=xSPath & xCSVFile, Delimiter:=";", Local:=True'
Bu yorum sitedeki moderatör tarafından en aza indirildi
Birden çok csv dosyasını birden çok xls olarak kullandım ancak yanlış xls de csv dosyaları alıyorum; ayrılmış bilgiler ancak hücrelerde bir araya gelir. Bu nasıl çözülebilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod, ayrılmış virgül csv dosyasını destekleyemez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Klasör adını verdiğimde program "Aramanızla eşleşen dosya yok" dedi. Ancak klasörde 2,609 .csv dosyası var
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod, ayrılmış virgül csv dosyasını desteklemiyor, bu durumda dosyalarınız mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

harika bir makale - teşekkür ederim! Neredeyse benim için çalışıyor.

Sorun şu: Sırayla ayrılmış bir csv dosyam var. Varsayılan pencere sınırlayıcısını (kontrol paneli/bölgesel ayarlar aracılığıyla) "|" olarak değiştirdim. Yani csv dosyasını Excel ile açtığımda açılıyor, direkt olarak alanları okuyor ve sütunlara doğru ayrıştırıyor. Tek yapmam gereken xls veya xlsx olarak kaydetmek, bitti. Kodunuza baktığımda, kodun yaptığı şey bu olmalı: csv dosyalarını bir klasörde açar, xls veya xlsx olarak kaydeder ve bunun üzerinde döngü yapar.

Sorun şu: Bu Excel dosyalarını açtığımda, boru sınırlayıcıları hala orada, sütunlara hiçbir şey ayrıştırılmıyor. Bu, Windows ayarlarında boruyla ayrılmış varsayılan ayarda yaptığım değişiklikten önceki davranıştı. Görünüşe göre Excel bu Windows ayarlarını kullanmıyor. Bunu, dosyanın bir kopyasında boru sınırlayıcılarını virgül sınırlayıcılarla değiştirerek doğruladım - iki dosyanın boruyla ayrılmış kısmı çözümlenmeden kaldı, virgülle ayrılmış olanlar gayet iyi dönüştürüldü.

Excel'de yerleşik virgül sınırlamasının nerede bulunabileceği veya değiştirilebileceği veya kodda bunu yapmanın bir yolu olup olmadığı hakkında bir fikriniz var mı? Bir arama yapıp değiştirmek zorunda kalmamayı, sonra kaydetmeyi tercih ederim ...

teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel'deki boru sınırlayıcıya dayalı olarak verileri sütuna bölmek istiyorsanız, csv dosyalarını xls'e dönüştürdükten sonra verileri / ile bölmek için Metinden Sütunlara işlevini kullanın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu gerçekten excel dosyaları için kullanışlı hale getirmez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, google'da bulunan diğer tüm komut dosyalarını denedikten sonra benim için çalışan harika komut dosyası. Metni sütunlara yapmak istediğim işlemi gerçekleştiren birkaç satır daha ekledim. Sistemi otomatikleştirdiğim için iletişim kutusunu açmak yerine yerel sürücüdeki klasör konumunu belirterek komut dosyasını nasıl değiştireceğime yardımcı olabilecek var mı?
. Şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hi
Metni sütunlara uygulayan betiği paylaşır mısınız?
Saygılarımızla
Bu yorum sitedeki moderatör tarafından en aza indirildi
Google'da bulunan diğer tüm komut dosyalarını aradıktan sonra Harika Komut Dosyası. Sistemi otomatikleştirdiğim için iletişim kutusunu açmasına izin vermek yerine yerel sürücüde bir klasör konumu belirterek bu komut dosyasının nasıl değiştirileceğine yardımcı olan var mı? Şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika bir kod parçası. Çok kullanışlı. Yanılmıyorsam .xlsx kodu .xls koduyla aynı görünüyor.

Bu hat:
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

Sanırım şöyle olmalı: ".csv" , ".xlsx", vbTextCompare vb.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu, yukarıda açıklanan şekilde değiştirdim; şimdi betik beklendiği gibi çalışıyor: xlsx dosyaları oluşturuyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
hayır yapmadın. hala her iki versiyonda da xls diyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu makro benim csv dosyamı göstermiyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodla ilgili küçük bir sorun, bir csv'yi açarken ve xlsx olarak kaydederken bir miktar doğruluğun (ondalık sayı) kaybolabilmesidir.
Bunu engellemenin yolu, açıldıktan hemen sonra tüm hücreleri seçip, ondalık basamak sayısını istediğiniz miktara ayarlamak (kişisel olarak benim için 15) ve *sonra* xlsx olarak kaydetmektir.

Aksi takdirde, xlsx, orijinal csv'den daha az ayrıntıya (ondalık sayılar açısından daha az doğruluk) sahiptir ve bu da bazı uygulamalarda sorunlara yol açabilir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
tarih sütun biçimimi gg-aa-yyyy'den gg/aa/yyyy'ye değiştiriyor, lütfen bu betiğin sütun biçimlerini değiştirmesini nasıl önleyebileceği konusunda herhangi biri yardımcı olabilir.
Çok teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, viper, dönüştürmeden sonra, onları geri biçimlendirebilir, tarihleri ​​seçebilir ve içerik menüsünden Hücreleri Biçimlendir'i seçmek için sağ tıklatabilirsiniz, Hücreyi Biçimlendir iletişim kutusunda, Sayı sekmesi altında, Kategori listesinde Özel'i tıklatın, ardından mm-dd- yazın. yyyy sağ bölümdeki metin kutusuna. Veya Kutools for Excel'iniz varsa, tarih biçimini istediğiniz gibi değiştirmek için Tarih Biçimlendirmesini Uygulayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
harika makale. Dönüştürülen tüm dosyaları yeni bir konuma nasıl kaydedebilirim? Kodu güncelleyip bana gönderir misiniz? Kullanıcının hedef klasörünü seçmesine izin vermek gibi.


Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
csv - xlsx arasındaki satır 22'de bir hata var
Hatalı - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
Düzeltildi - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hatırlattığınız için teşekkürler, güncelledim, tekrar teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu satır için "Nesne değişkeni veya blok değişkeni ayarlanmadı" hatası alıyorum:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> bu, bilgisayarımda dönüştürmeyi yaptığım belirli bir klasörün yoludur (klasörün içinde bir sürü csv dosyası vardır )

Burada yanlış bir şey mi yapıyorum?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu benim için çalışıyor, ancak dosya uzantısı değişmiyor. Herhangi bir ipucu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Benim için aynı - tüm dosyalar .csv olarak kalır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Seçtiğiniz tüm csv dosyaları yeni excel dosyaları olarak kaydedilmiştir, orijinal dosyalar (csv) değişmez, aynı içeriğe sahip yeni excel dosyaları mevcuttur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben de aynı sorunu yaşadım. Kaynak dosyanızın büyük harflerle (.CSV) bir uzantısı varsa, çalışmaz. Sadece 22. satırdaki kodda .csv'yi .CSV ile değiştirin, ardından çalışması gerekir. Eh, en azından benim için öyleydi.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Verileri noktalı virgülle ayrı sütunlara ayırmak için kodu XLSX toplu iş dosyası rutinine nasıl dahil edebilirim? Paylaşılan kod, dosyayı .csv'den .xlsx'e dönüştürür, ancak verileri ayrı sütunlara ayırmaz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
evet iş değil.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Buenos dias companeros

Adiciona a lo que hace el yazısı, quisiera poder dönüştürücüsü, medyadaki metinleri ve sütunları, por la opción que no es sınırlandırılmış por ningún tipo de caracter, adicional los tamaños de las columnas son diferentes. Vale la pena aclarar que si tomo cada arşiv ve ayrı ayrı metinler ve sütunlar, bajo esa opción los puedo dönüştürücü günah sorunları, abriéndolos uno por uno, pero sigravo esa makro ve yanlış makro dahil "USAR REFERENCIAS RELATIVAS", herhangi bir işlem için gerekli değildir, mevcut koşulların en iyi şekilde değerlendirilmesi, tüm koşulların değerlendirilmesi, en uygun koşulların sağlanması, tarihin en önemli koşullarının değerlendirilmesi. l le hiciera manualmente la opción de limitación ve aplike los valores de ubicación de las columnas identificados en el arşivo ejemplo yok.

En iyi arşivi, günah ambargosunu, bağımsız olarak, tek başına gerekli kılıcı birleştirmek için kullanın, dönüştürme işlemini bir cada arşivi, uygulamanın sınırlarını zorlayın.


Workbooks.Open Dosya Adı:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault

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

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(18 _
, 1), Dizi(38, 1)), SondakiMinusNumbers:=True
ActiveCell.Hücreler.Seçim
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range("A1").Seç
ActiveWorkbook.Save

HASTA AQUI SENİ ANLIYOR

ActiveWorkbook.Close
Windows(xWsheet).Etkinleştir
xCSVFile = Yön

döngü
Application.StatusBar = Yanlış
Application.DisplayAlerts = True
End Sub

Hiçbir se si me hago explicar bien, pero es mi problema.
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır