Excel - Verileri başka bir e-tabloya verme

İkincisinde de aynı tada sahip olmak istiyorsanız, verileri bir Excel elektronik tablosundan başka bir elektronik tabloya dışa aktarmak her zaman bir sorundur. Oldukça sık, İnternet'ten bir dosya dışa aktarıldığında, mevcut dosyaya değil, yeni bir dosyaya kaydedilir. Yeniden yapılandırılması çok zaman alıyor. Bu sorunu çözmek için, veri kullanmak zorunda - harici veri seçeneği Excel altında, web sayfasının adresinin yapıştırılması gereken yeni bir web sorgusu ile alın. Ardından, içe aktarma seçeneğini kullanarak uygun hedef sıralanabilir.

Konu
Çözüm
Bunu not et

Konu

Bir sorum var. Ne zaman bir dosyayı internetten dışa aktardığımda veriler, üzerinde çalışmakta olduğum Excel sayfası yerine yeni bir Excel dosyasına kaydedilmektedir. Sonuç olarak, bu dosyadaki verileri, çalışmakta olduğum Excel dosyasına kopyalamak zorunda kalıyorum. çok zaman alıcı. Verileri doğrudan çalışan Excel dosyasına aktarmak için daha kısa bir yöntem var mı?
Başka bir problemim var. Belirli bir çalışma sayfası için bir makro kaydettim. Bu makro iki şey yapar. 1. İki kola var. Sütun A ve Sütun B. Sütun C'de, Sütun A'yı B'den çıkarır. 2. Sütun A ve C arasındaki ağırlıklı ortalamayı bulur.

Şimdi bu makroyu ilk çalışma sayfası dışındaki tüm çalışma sayfalarında çalıştırmak istiyorum. Bunu yapmak için kod nedir?

Çözüm

Bu problemi çözmek için:

Web sayfasını Excel panosuna kopyalayın.
Sayfana git.
Dosyanın kopyalanmasını istediğiniz herhangi bir hücreyi seçin. örneğin, A1.
Veri içe aktarma harici verilerini (veya sürüme bağlı olarak böyle bir şeyi) tıklayın - yeni web sorgusu.
Yeni web sorgusu penceresinde, web sayfasının adresini üstündeki "adres" e yapıştırın.
Git üzerine tıklayın
Tüm web sayfasını alacaksınız. İstediğiniz tablo ne olursa olsun, onay işaretini tıklayın; tüm masa işaretlenecek
Sağ alt kısımdaki "içe aktar" ı tıklayın
Nereye park etmek istediğinizi soracaktır. Zaten A1 ise, Tamam'ı tıklayın.

İkinci sayıyı çözmek için:

 Alt test1 () Dim j Tam sayı olarak, k Tam sayı olarak j = Çalışma Sayfaları. Miktar 'MsgBox j için k = 1 için j' 'MsgBox Sayfaları (k). Sayfaların Adı (k) .Name = "Sayfa1" Sonra GoTo nnext Sayfaları ( k) .MAKRO'UN ADINI Etkinleştirin nnext: Sonraki k End Sub