Excel - Mengeksport data ke hamparan lain

Mengeksport data dari satu hamparan Excel ke hamparan lain selalu menjadi masalah jika anda ingin mempunyai rasa yang sama di kedua juga. Sering kali, setiap kali fail dari Internet dieksport, ia disimpan dalam fail baru, bukan dalam yang sedia ada. Ia mengambil banyak masa untuk menyusun semulanya. Untuk menyelesaikan masalah ini, seseorang perlu menggunakan data - mengimport pilihan data luaran di bawah Excel dengan pertanyaan web baru di mana alamat halaman web harus disisipkan. Kemudian, dengan menggunakan pilihan import, destinasi yang betul boleh diselesaikan.

Isu
Penyelesaian
Perhatikan bahawa

Isu

Saya mempunyai pertanyaan. Setiap kali saya mengeksport fail dari internet, data akan disimpan ke dalam fail Excel baru dan bukannya lembaran Excel yang saya kerjakan. Akibatnya, saya perlu menyalin data dari fail tersebut ke fail Excel yang saya lakukan. sangat memakan masa. Adakah terdapat kaedah yang lebih pendek untuk mengeksport secara langsung data ke dalam fail Excel kerja?
Saya mempunyai satu lagi masalah yang berasingan. Saya telah mencatatkan makro untuk lembaran kerja tertentu. Makro itu melakukan dua perkara. 1. Terdapat dua cols. Lajur A dan Lajur B. Dalam colc C ia menolak Col A dari B. 2. Ia mendapati purata wajaran antara col A dan C.

Kini saya mahu menjalankan makro ini dalam semua lembaran kerja kecuali lembaran kerja pertama. Apakah kod itu untuk berbuat demikian?

Penyelesaian

Untuk menyelesaikan masalah ini:

Salin alamat halaman web dalam clipboard Excel.
Pergi ke lembaran anda.
Pilih mana-mana sel dari mana anda mahu fail itu disalin. contohnya A1.
Klik data import data luaran (atau sesuatu seperti ini bergantung kepada versi) - pertanyaan web baru.
Dalam tetingkap pertanyaan web baru tampal alamat halaman web di bahagian atas terhadap "alamat".
Klik Pergi
Anda akan mendapat keseluruhan halaman web. Apa sahaja jadual yang anda mahukan, klik tanda semak dan jadual keseluruhan akan ditandakan
Klik "import" di bahagian bawah kanan
Ia akan bertanya di mana anda ingin meletaknya. Jika sudah A1 klik ok

Untuk menyelesaikan isu kedua:

 Sub test1 () Dim j Sebagai Integer, k Sebagai Integer j = Worksheets.Count 'MsgBox j Untuk k = 1 Kepada j' MsgBox Sheets (k) .Name Jika Helaian (k) .Name = "Sheet1" Kemudian GoTo nnext Sheets ( k) .Aktiviti NAME NAMA MACRO: Selanjutnya k End Sub