Excel - Mengekspor data ke spreadsheet lain

Mengekspor data dari satu lembar kerja Excel ke lembar kerja lain selalu menjadi masalah jika Anda ingin memiliki rasa yang sama di lembar kerja kedua juga. Cukup sering, setiap kali file dari Internet diekspor, file itu disimpan dalam file baru, bukan yang sudah ada. Membutuhkan banyak waktu untuk mengkonfigurasi ulang. Untuk mengatasi masalah ini, kita harus menggunakan data - impor opsi data eksternal di bawah Excel dengan kueri web baru di mana alamat halaman web harus ditempelkan. Kemudian, menggunakan opsi impor, tujuan yang tepat dapat diselesaikan.

Isu
Larutan
Catat itu

Isu

Saya punya pertanyaan. Setiap kali saya mengekspor file dari internet, data akan disimpan ke dalam file Excel baru alih-alih lembar Excel yang sedang saya kerjakan. Akibatnya saya harus menyalin data dari file itu ke file Excel tempat saya bekerja. Ini adalah sangat memakan waktu. Apakah ada metode yang lebih pendek untuk langsung mengekspor data ke file Excel yang berfungsi?
Saya punya masalah lain yang terpisah. Saya telah mencatat makro untuk lembar kerja tertentu. Makro itu melakukan dua hal. 1. Ada dua cols. Kolom A dan Kolom B. Dalam kolom C mengurangi Kol A dari B. 2. Ia menemukan rata-rata tertimbang antara kolom A dan C.

Sekarang saya ingin menjalankan makro ini di semua lembar kerja kecuali lembar kerja pertama. Apa kode untuk melakukan itu?

Larutan

Untuk mengatasi masalah ini:

Salin alamat halaman web di clipboard Excel.
Buka lembar Anda.
Pilih sel mana pun dari tempat Anda ingin file itu disalin. misal A1.
Klik impor data data eksternal (atau sesuatu seperti ini tergantung pada versinya) - kueri web baru.
Di jendela kueri web baru tempel alamat laman web di bagian atas dengan "alamat".
Klik Go
Anda akan mendapatkan seluruh halaman web. Tabel apa pun yang Anda inginkan, klik tanda centang dan seluruh tabel akan ditandai
Klik "impor" di kanan bawah
Ini akan menanyakan di mana Anda ingin memarkirnya. Jika sudah A1 klik ok

Untuk mengatasi masalah kedua:

 Sub test1 () Dim j Sebagai Integer, k As Integer j = Worksheets.Count 'MsgBox j For k = 1 Ke j' MsgBox Sheets (k) .Name If Sheets (k) .Name = "Sheet1" Kemudian GoTo nnext Sheets ( k) .Aktifkan NAMA MACRO nnext: Selanjutnya k End Sub