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

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

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

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

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

我設定的場景也是非常實用的一個場景。如下圖1所示，一個“個人簡歷表”模版。

圖1

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

圖2

圖3

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

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

接下來，我讓deepseek來幫我編寫VBA代碼。

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

我第一次的提問題如下圖4所示。

圖4

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

圖5

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

圖6

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

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

圖7

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

繼續(xù)修改提問。這次，我提示deepseek代碼“后面的函數(shù)有問題，請再思考！”

圖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 ' 從第二行開始填充數(shù)據(jù)
 colIndex = 1
 ' 設置標題行
 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 = "興趣愛好"
 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 = "獲獎情況"
 ws.Cells(1, 16).Value = "自我介紹"
 ' 打開文件夾選擇對話框
 Set fileDialog = Application.fileDialog(msoFileDialogFolderPicker)
 With fileDialog
   .Title = "請選擇包含簡歷的文件夾"
   If .Show = -1 Then
     selectedFolder = .SelectedItems(1)
   Else
     MsgBox "未選擇文件夾，操作取消。"
     Exit Sub
   End If
 End With
 folderPath = selectedFolder & "\"
 fileName = Dir(folderPath & "*.docx")
 ' 初始化Word應用程序
 Set wdApp = CreateObject("Word.Application")
 wdApp.Visible = False
 ' 遍歷文件夾中的所有Word文檔
 Do While fileName <> ""
   Set wdDoc = wdApp.Documents.Open(folderPath & fileName)
   ' 提取簡歷信息
   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
     ' 去除多余的字符（如段落標記）
     cellValue = Replace(cellValue, Chr(13), "")
     cellValue = Replace(cellValue, Chr(7), "")
     cellValue = Trim(cellValue)
     ' 將信息寫入Excel工作表
     ws.Cells(rowIndex, colIndex).Value = cellValue
   Next colIndex
   ' 關(guān)閉當前Word文檔
   wdDoc.Close SaveChanges:=False
   ' 移動到下一行
   rowIndex = rowIndex + 1
   ' 獲取下一個文件名
   fileName = Dir
 Loop
 ' 關(guān)閉Word應用程序
 wdApp.Quit
 ' 釋放對象
 Set wdDoc = Nothing
 Set wdApp = Nothing
 MsgBox "簡歷信息提取完成！"
End Sub

新建一個Excel工作簿，按Alt+F11打開VBE，插入一個標準模塊，在其中粘貼上面的代碼，如下圖10所示。

圖10

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

圖11

看來，對待deepseek也要有耐心！

作者：fanjy

來源：完美Excel

相關(guān)文章

最新評論