excel數(shù)據(jù)導(dǎo)入

想要更好的將數(shù)據(jù)導(dǎo)入Excel，必須在設(shè)置鍵里面加入導(dǎo)入，然后才能更好的把數(shù)據(jù)完整的導(dǎo)入。

選擇
數(shù)據(jù)，導(dǎo)入外部數(shù)據(jù)，選導(dǎo)入數(shù)據(jù)，選擇你要導(dǎo)入的記事本文件，點(diǎn)確定，選擇固定寬度，
下一步，在你要分列的地方點(diǎn)一下，會(huì)出現(xiàn)一條豎線的，全部設(shè)好之后，點(diǎn)下一步，設(shè)置一下你要的每一列的數(shù)據(jù)格式，不設(shè)也可以，點(diǎn)完成就行了。
如果你的記事本內(nèi)容有變，只要右鍵刷新新一下就行了

如果使用的記事本是敬業(yè)簽的話，那么就可以通過內(nèi)容推送功能將記錄的東西導(dǎo)出來了，導(dǎo)出的格式可以選擇Excel，而且還可以選擇是否顯示某條內(nèi)容的創(chuàng)建信息、提醒信息、和完成信息等。

直接復(fù)制記事本的內(nèi)容。

1、電腦中全選的快捷鍵是Ctrl+A組合鍵。 2、鼠標(biāo)單擊開始部分,然后在最末尾部分按住Shift+鼠標(biāo)左鍵,進(jìn)行全選。

然后復(fù)制到Excel就可以了。

單個(gè)頁面的數(shù)獲取用excel還有可能實(shí)現(xiàn)。要是需要獲取很多頁面的數(shù)據(jù)還是要用網(wǎng)絡(luò)爬蟲的。
現(xiàn)在比較簡(jiǎn)單好用的，應(yīng)該是八爪魚了吧，正好改版免費(fèi)試用了?？梢曰?0分鐘學(xué)習(xí)一下，自己定義獲取數(shù)據(jù)

方法一、在網(wǎng)頁上按CTRL+A全選內(nèi)容，再按CTRL+C復(fù)制，最后到EXCEL里面按CTRL+V粘貼，完成。

方法二、在網(wǎng)頁上點(diǎn)鼠標(biāo)右鍵，選擇菜單“導(dǎo)出到EXCEL”（有的電腦是導(dǎo)出到MICROSOFT EXCEL）

'定義打開Excel表格的函數(shù)
Function OpenExcel(path)
dim excel,rs,strsql
On Error Resume Next
Set rs = Server.CreateObject("ADODB.RecordSet")
Set excel = Server.CreateObject("ADODB.Connection")
excel.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & path
If Err.number<> 0 Then
Response.Write "請(qǐng)檢查上傳的Excel文件內(nèi)部格式，文件無法打開，導(dǎo)入失??！"
Response.End
End If
strsql = "SELECT * FROM [Sheet1$]" '在這里指定工作薄名稱,默認(rèn)是Sheet1$
Set rs = excel.Execute(strsql)
Set OpenExcel = rs
End Function

'讀取文件中的內(nèi)容
Dim rsInfo
Set rsInfo = Server.CreateObject("ADODB.RecordSet")
Set rsInfo = OpenExcel("E:/a.xls") '這里的文件路徑請(qǐng)用Server.Path來獲取

'檢查讀取結(jié)果
If rsInfo.State<> 1 Then
Response.Write "請(qǐng)檢查Excel文件中的工作表命名是否為Sheet1，導(dǎo)入失敗！"
Response.End
End If

If rsInfo.EOF And rsInfo.BOF Then
Response.Write "沒有找到Excel表中的數(shù)據(jù)，導(dǎo)入失?。?
Response.End
End If

If IsNull(rsInfo.Fields(0)) or Trim(rsInfo.Fields(0))="" Then
Response.Write "沒有找到Excel表中的數(shù)據(jù)，導(dǎo)入失敗！"
Response.End
End If

'這里指定導(dǎo)入數(shù)據(jù)的列數(shù),列數(shù)少了退出
If rsInfo.Fields.Count< 7 Then
Response.Write "Excel表中的數(shù)據(jù)列數(shù)不正確，導(dǎo)入失??！"
Response.End
End If

我曾經(jīng)做過一個(gè)類似功能的程序，不難，邏輯如下：
private void ImportExcelIntoDB()
{

// Get reader for the Excel file
OleDbDataReader reader = GetReader();
// Open database
OpenDatabaseConneciton();

// Loop reading each row from Excel file
while (reader.Read())
{
// write row into files
WriteRowIntoDatabase(reader);
progressBarWriting.ProgressBar.PerformStep();
}

// Close database
CloseDatabaseConnection();
// Close reader
reader.Close();

}