如何用VBA提取網(wǎng)上的表格數(shù)據(jù)進(jìn)Excel？VBA有三種提取網(wǎng)頁數(shù)據(jù)的方法：首選是查詢，編程最簡單。選擇工作表以創(chuàng)建新的網(wǎng)頁查詢，VBA每次刷新數(shù)據(jù)時(shí)都可以使用它。另外兩個(gè)是XML下載網(wǎng)頁，ie對(duì)象下

如何用VBA提取網(wǎng)上的表格數(shù)據(jù)進(jìn)Excel？

VBA有三種提取網(wǎng)頁數(shù)據(jù)的方法：

首選是查詢，編程最簡單。選擇工作表以創(chuàng)建新的網(wǎng)頁查詢，VBA每次刷新數(shù)據(jù)時(shí)都可以使用它。

另外兩個(gè)是XML下載網(wǎng)頁，ie對(duì)象下載網(wǎng)頁，需要處理HTML代碼，非常麻煩。

Excel數(shù)據(jù)導(dǎo)出成txt.文件的VBA代碼？

第1步：將宏設(shè)置為中安全或低安全，第2步：插入模塊ALT F11：打開VBA編輯器，打開菜單欄，插入模塊，并添加以下代碼

sub daochu（）dim I as integer，j as long，RW as long for I=1 toActiveSheet.UsedRange.Columns文件.計(jì)數(shù)打開此工作簿。路徑&步驟3：保存并關(guān)閉excel第四步：保存后關(guān)閉excel再次打開excel，按Ctrl-Shift-p完成導(dǎo)出。該文件位于D根目錄中。如果您想把它放在另一個(gè)目錄中，您可以將open“D:”中的D更改為您想要的目錄，但該目錄不能有中文字符

您可以嘗試以下代碼：

sub extraction（）for I=1 to 12 N=sheets（I&；“month”）。范圍（“a”和行。計(jì)數(shù)）. 結(jié)束（3）。M行=工作表（“年度匯總分析”）。范圍（“a”和行。計(jì)數(shù)）. 結(jié)束（3）。行表（I&m “）。范圍（“A3:AC”&n）。復(fù)印表（“年度總結(jié)分析”）。范圍（“a”和m 1）下一個(gè)子系統(tǒng)