欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

怎么利用deepseek實(shí)現(xiàn)從Word文檔自動(dòng)提取信息到Excel工作表?

  發(fā)布時(shí)間：2025-02-06 16:55:58   作者：佚名   我要評(píng)論
Word文檔中的信息想要提取到excel表格中，可以實(shí)現(xiàn)的方法很多，今天我們使用deepseek實(shí)現(xiàn)，詳細(xì)請(qǐng)看下文介紹

自從昨晚被deepseek秒殺后（詳見(jiàn)：使用deepseek自動(dòng)處理Excel工作表），整個(gè)人完全震驚了！真的有種多年的積累似乎是白學(xué)了的感覺(jué)！由此帶來(lái)了各種各樣的情緒，興奮、不甘、不服氣……

于是，今天晚上又試了一把。這次是想提高點(diǎn)難度，讓Excel與Word互通，從多個(gè)Word文檔中提取信息，看看deepseek能否給出滿足我要求的代碼。

我設(shè)定的場(chǎng)景也是非常實(shí)用的一個(gè)場(chǎng)景。如下圖1所示，一個(gè)“個(gè)人簡(jiǎn)歷表”模版。

圖1

下面是兩份填寫好的簡(jiǎn)歷示例，用作數(shù)據(jù)樣例，如下圖2和圖3所示。

圖2

圖3

這些簡(jiǎn)歷都存放在同一個(gè)文件夾中?，F(xiàn)在，我們想要在Excel中匯總這些簡(jiǎn)歷數(shù)據(jù)，以便于更好地分析和篩選。

試想一下，如果只有幾份簡(jiǎn)歷還好，如果有成百上千份簡(jiǎn)歷，一份份錄入數(shù)據(jù)，那是多么煩瑣的事情，且又容易出錯(cuò)。這種情況最適合讓程序代碼來(lái)自動(dòng)化實(shí)現(xiàn)了。

接下來(lái)，我讓deepseek來(lái)幫我編寫VBA代碼。

打開(kāi)deepseek網(wǎng)站，給DeepSeek發(fā)送消息，同時(shí)將圖1所示的個(gè)人簡(jiǎn)歷表模版上傳附件。

我第一次的提問(wèn)題如下圖4所示。

圖4

deepseek給出的代碼并不能實(shí)現(xiàn)我的要求。我稍微調(diào)整了一下提問(wèn)語(yǔ)句，如下圖5所示。

圖5

deepseek給出的代碼還是不能實(shí)現(xiàn)我的要求。我檢查了一下代碼，確實(shí)是有問(wèn)題。于是，我再次微調(diào)提問(wèn)，如下圖6所示。

圖6

deepseek給出的代碼仍不能實(shí)現(xiàn)我的要求。其代碼只是取了表格中第2列的數(shù)據(jù)。此時(shí)，我有點(diǎn)得意了！哈哈，deepseek，你雖然給出了代碼，確實(shí)幫我搭好了代碼框架，但還是需要我來(lái)修改呀！

本打算開(kāi)始自已修改代碼，但轉(zhuǎn)念一想，還是要讓deepseek幫我完成。于是，我再次微調(diào)提問(wèn)，提示deepseek“請(qǐng)反復(fù)思考幾次！”如下圖7所示。

圖7

這次的代碼看起來(lái)似乎符合要求了，但還是行不通！

繼續(xù)修改提問(wèn)。這次，我提示deepseek代碼“后面的函數(shù)有問(wèn)題，請(qǐng)?jiān)偎伎迹?rdquo;

圖8

deepseek似乎終于想通了，或是把它給逼急了，終于給出了符合要求的代碼，如下圖9所示。

圖9

完整的代碼如下：

Sub ExtractResumeInfoToExcel()
 Dim wdApp As Object
 Dim wdDoc As Object
 Dim ws As Worksheet
 Dim folderPath As String
 Dim fileName As String
 Dim rowIndex As Integer
 Dim colIndex As Integer
 Dim fileDialog As fileDialog
 Dim selectedFolder As Variant
 Dim cellValue As String
 ' 初始化Excel工作表
 Set ws = ThisWorkbook.Sheets(1)
 ws.Cells.Clear
 rowIndex = 2 ' 從第二行開(kāi)始填充數(shù)據(jù)
 colIndex = 1
 ' 設(shè)置標(biāo)題行
 ws.Cells(1, 1).Value = "姓名"
 ws.Cells(1, 2).Value = "性別"
 ws.Cells(1, 3).Value = "出生日期"
 ws.Cells(1, 4).Value = "民族"
 ws.Cells(1, 5).Value = "籍貫"
 ws.Cells(1, 6).Value = "政治面貌"
 ws.Cells(1, 7).Value = "婚姻狀況"
 ws.Cells(1, 8).Value = "健康狀況"
 ws.Cells(1, 9).Value = "興趣愛(ài)好"
 ws.Cells(1, 10).Value = "畢業(yè)院校及專業(yè)"
 ws.Cells(1, 11).Value = "職業(yè)資格證書"
 ws.Cells(1, 12).Value = "家庭地址"
 ws.Cells(1, 13).Value = "聯(lián)系電話"
 ws.Cells(1, 14).Value = "工作經(jīng)歷"
 ws.Cells(1, 15).Value = "獲獎(jiǎng)情況"
 ws.Cells(1, 16).Value = "自我介紹"
 ' 打開(kāi)文件夾選擇對(duì)話框
 Set fileDialog = Application.fileDialog(msoFileDialogFolderPicker)
 With fileDialog
   .Title = "請(qǐng)選擇包含簡(jiǎn)歷的文件夾"
   If .Show = -1 Then
     selectedFolder = .SelectedItems(1)
   Else
     MsgBox "未選擇文件夾，操作取消。"
     Exit Sub
   End If
 End With
 folderPath = selectedFolder & "\"
 fileName = Dir(folderPath & "*.docx")
 ' 初始化Word應(yīng)用程序
 Set wdApp = CreateObject("Word.Application")
 wdApp.Visible = False
 ' 遍歷文件夾中的所有Word文檔
 Do While fileName <> ""
   Set wdDoc = wdApp.Documents.Open(folderPath & fileName)
   ' 提取簡(jiǎn)歷信息
   For colIndex = 1 To 16
     cellValue = ""
     Select Case colIndex
       Case 1
         cellValue = wdDoc.Tables(1).cell(1, 2).Range.Text
       Case 2
         cellValue = wdDoc.Tables(1).cell(1, 4).Range.Text
       Case 3
         cellValue = wdDoc.Tables(1).cell(1, 6).Range.Text
       Case 4
         cellValue = wdDoc.Tables(1).cell(2, 2).Range.Text
       Case 5
         cellValue = wdDoc.Tables(1).cell(2, 4).Range.Text
       Case 6
         cellValue = wdDoc.Tables(1).cell(2, 6).Range.Text
       Case 7
         cellValue = wdDoc.Tables(1).cell(3, 2).Range.Text
       Case 8
         cellValue = wdDoc.Tables(1).cell(3, 4).Range.Text
       Case 9
         cellValue = wdDoc.Tables(1).cell(3, 6).Range.Text
       Case 10
         cellValue = wdDoc.Tables(1).cell(4, 2).Range.Text
       Case 11
         cellValue = wdDoc.Tables(1).cell(4, 4).Range.Text
       Case 12
         cellValue = wdDoc.Tables(1).cell(5, 2).Range.Text
       Case 13
         cellValue = wdDoc.Tables(1).cell(5, 4).Range.Text
       Case 14
         cellValue = wdDoc.Tables(1).cell(6, 2).Range.Text
       Case 15
         cellValue = wdDoc.Tables(1).cell(7, 2).Range.Text
       Case 16
         cellValue = wdDoc.Tables(1).cell(8, 2).Range.Text
     End Select
     ' 去除多余的字符（如段落標(biāo)記）
     cellValue = Replace(cellValue, Chr(13), "")
     cellValue = Replace(cellValue, Chr(7), "")
     cellValue = Trim(cellValue)
     ' 將信息寫入Excel工作表
     ws.Cells(rowIndex, colIndex).Value = cellValue
   Next colIndex
   ' 關(guān)閉當(dāng)前Word文檔
   wdDoc.Close SaveChanges:=False
   ' 移動(dòng)到下一行
   rowIndex = rowIndex + 1
   ' 獲取下一個(gè)文件名
   fileName = Dir
 Loop
 ' 關(guān)閉Word應(yīng)用程序
 wdApp.Quit
 ' 釋放對(duì)象
 Set wdDoc = Nothing
 Set wdApp = Nothing
 MsgBox "簡(jiǎn)歷信息提取完成！"
End Sub

新建一個(gè)Excel工作簿，按Alt+F11打開(kāi)VBE，插入一個(gè)標(biāo)準(zhǔn)模塊，在其中粘貼上面的代碼，如下圖10所示。

圖10

然后運(yùn)行代碼，代碼會(huì)彈出一個(gè)對(duì)話框，要求你選擇簡(jiǎn)歷所在的文件夾。示例結(jié)果如下圖11所示。

圖11

看來(lái)，對(duì)待deepseek也要有耐心！

作者：fanjy

來(lái)源：完美Excel

相關(guān)文章

最新評(píng)論