Ekspor excel vba ke file teks yang dibatasi koma

Kode ini tidak berfungsi. Saya mencoba menyimpan lembar excel aktif setiap menit dalam format csv. pertama kali berfungsi dari kedua kalinya saya mendapatkan kesalahan, makro ini dapat dijalankan. tolong periksa. Terima kasih sebelumnya

Jalankan Publik Saat Sebagai Ganda
Sub saveSheetToCSV()

Redupkan myCSVFileName Sebagai String
Redupkan tempWB Sebagai Buku Kerja

Aplikasi. Peringatan Tampilan = Salah
On Error GoTo err

myCSVFileName = Buku Kerja Ini. Path & “\” & “CSV-Exported-File-” & VBA. Format(VBA. Sekarang, “dd-MMM-yyyy hh-mm”) & “. csv”

Add-in Excel ini memungkinkan Anda mengubah rentang apa pun pada lembar kerja Excel menjadi file teks yang dipisahkan, menggunakan string pembatas apa pun (tab, koma, karakter tunggal atau kombinasi karakter lainnya) yang Anda suka.  

Diskusi

Biasanya, saat kita perlu menggunakan Excel untuk membuat file teks terbatas (misalnya, untuk mengunggah ke aplikasi lain), kita menyiapkan lembar kerja dan kemudian menyimpannya sebagai file CSV. Namun, terkadang kita hanya perlu menyimpan sebagian dari lembar kerja, atau kita perlu menggunakan pembatas yang berbeda dari koma (mungkin titik koma, atau mungkin karakter pipa). Add-in ini memungkinkan Anda untuk menulis hanya sebagian dari lembar kerja ke file teks, jika diperlukan, dan juga memungkinkan Anda untuk menentukan pembatas, kualifikasi teks (jika ada), dan apakah akan menyertakan "utama" dan/ .  

Saya ingin mengonversi excel s/sheet yang berisi daftar URL PANJANG menjadi file teks yang dibatasi koma, sehingga

URL1
URL2
URL3
URL4

menjadi. txt

URL1, URL2, URL3, URL4

Ada saran (selain dengan tangan. ) akan sangat dihargai

OMONG-OMONG. Alasan untuk ini adalah bahwa saya ingin memasukkan URL ini ke dalam fping - program ping beberapa nama host, dan karena itu saya ingin mengubah hasilnya kembali menjadi excel

Terima kasih,

Mike

rem1224

Intermediat

1.870Postingan368

Hai Mike,

Untuk mendapatkan hasil yang Anda inginkan, semua URL Anda harus dalam 1 baris, bukan 1 kolom. Format CSV memperlakukan setiap baris sebagai catatan baru, tetapi menulis setiap sel dalam satu baris sebagai catatan tunggal yang dipisahkan dengan koma

Untuk mengonversi kolom data Anda menjadi satu baris
1. Pastikan tidak ada apa pun di Baris 1 (masukkan baris jika perlu kosongkan baris itu)
2. Sorot rentang URL Anda (Saya berasumsi mereka akan berada di sel A2. A### - selama jumlahnya tidak lebih dari 256, Anda baik-baik saja)
3. Klik Salin
4 Pilih Sel A1
5 Klik Edit / Tempel Spesial - klik kotak di sebelah Transpose - dan klik OK

Data sekarang seharusnya berada di Baris 1

Hapus data duplikat di Kolom A, lalu simpan file dalam format yang dibatasi koma

Semoga ini membantu

Muntah

rem1224

Intermediat

1.870Postingan368

Itu akan menjadi file besar. Ya

Makro berikut akan membuat file csv seperti yang Anda gambarkan dengan membaca dan menulis setiap nilai di Col A. (Anda harus menyesuaikan rentang untuk memenuhi kebutuhan Anda)

Kode

Sub TextFileWrite()
    Dim myrng As Range
    Set myrng = Range("A1:A22222") 'CHANGE THIS RANGE TO MEET YOUR SPECS


    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Dim cellv As String
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "C:urlfile.csv"  'You can change the output name to anything you want
    Set f = fs.GetFile("C:urlfile.csv")
    Set ts = f.OpenAsTextStream(ForWriting, TristateFalse)
    
    For Each cell In myrng
    cellv = cell.Value
    ts.Write (cellv & Chr(44))
    Next cell
    
    ts.Close
    
End Sub

Muntah

Tuan T

Siswa

655Postingan83

Anda sangat baik Ralph. terima kasih

Right before I give you the gold star, could you just

Jika saya pergi ke Alat > Makro > Rekam Makro Baru

dan kemudian salin dan tempel kode (yang dikoreksi), apakah itu akan aktif secara otomatis?

Maaf atas ketidaktahuan saya, saya tidak tahu excel sangat serbaguna. Saya sebenarnya melakukan analisis saya di Stata - paket baris perintah, tetapi menemukan excel bagus (dan semakin baik) untuk manipulasi

Terima kasih lagi. Ya

rem1224

Intermediat

1.870Postingan368

Saya senang bisa membantu

Tidak dapat menggunakan salin/tempel dengan Rekam Makro

Di buku kerja Anda, tekan Alt-F11 untuk membuka Editor Visual Basic. Di panel "Proyek", klik sekali di pohon yang bertuliskan Proyek VBA (nama buku kerja Anda). Di menu atas, klik Sisipkan / Modul. Modul 1 akan muncul dan disorot di panel Project dan Anda akan memiliki panel kode kosong di sebelah kanan

Salin kode makro dari utas ini dan tempel di jendela kosong, buat mod apa pun yang Anda perlukan ke kode dan tutup jendela VBE

Saat Anda masuk ke Alt-F8 dari buku kerja Anda, Anda akan mendapatkan daftar makro dengan makro baru di sana. Jika Anda menyimpan buku kerja, makro juga akan disimpan

Muntah

Tuan T

Siswa

655Postingan83

Gan

Sekarang saya benar-benar menunjukkan ketidaktahuan saya

Instruksi Anda sangat jelas, saya telah melaksanakannya sampai ke surat. Sayangnya, makro telah dinonaktifkan untuk tujuan keamanan

Saya masuk ke Office XP sebagai administrator, dan di excel telah membuka alat > makro > keamanan dan menguranginya menjadi rendah (untuk saat ini)

Ketika saya kemudian pergi ke tools > macros dan mencoba menjalankan macro, masih tertulis

"makro dalam buku kerja ini dinonaktifkan karena tingkat keamanannya tinggi, dan makro belum ditandatangani secara digital atau diverifikasi aman. "

Terima kasih atas semua pegangan tangan ini, saya sangat menghargai semua bantuan yang saya dapatkan dari forum ini

Tuan T

Siswa

655Postingan83

Itu sangat cepat. terima kasih banyak untuk semua bantuan Anda. Terpecahkan. o

Oke,

Rutin Close-then-Reopen Microsoft yang tepercaya berfungsi, dan status makro sekarang sedang

Namun, Alt-F8 memunculkan makro, dan mengklik "jalankan" memberi saya jam pasir selama dua detik, lalu tidak ada

Jika itu benar-benar membuat file (yang akan menjadikannya fungsi excel tercepat yang pernah ada), lalu di mana itu?

Bagaimana cara mengekspor data dari Excel ke file teks yang dibatasi koma?

Bagaimana cara mengekspor File Excel ke teks di VBA?

Bagaimana cara mengekspor Excel ke CSV dengan koma?

Bagaimana cara menyimpan File Excel sebagai CSV dengan pembatas yang berbeda?