拖拉文件到excel再存回去的方法如何实现呢

喝酒的毛毛虫 · 发表于 2024-3-10 14:11

将A文件夹中的其中一个html文件拖拉到excel中，自动将html中的文本复制到表格的B列，再执行将每一列文本前的序号删除、删除重复等其他自己设定的操作，最后再以同样的文件名保存回B文件夹中。
全程只需要自己操作鼠标将文件拖到EXCEL中即可，其他操作都自动完成，是否可以实现呢？需要处理的文本基本都跟附件里面的一样，数量比较庞大，最好可以批量拖拉进去，处理完一个有会接着处理下一个。求大神支招。

需要EXCEL处理的html文件.rar (5.22 KB, 下载次数: 12)

3190496160 · 发表于 2024-3-11 08:46

判断重复的标准是什么呢？？？？

喝酒的毛毛虫 · 发表于 2024-3-12 08:25

3190496160 发表于 2024-3-11 08:46
判断重复的标准是什么呢？？？？

是每一行如果字符完全一样就算重复

喝酒的毛毛虫 · 发表于 2024-3-12 10:05

3190496160 发表于 2024-3-11 08:46
判断重复的标准是什么呢？？？？

也就是说自动执行菜单中的删除重复项就可以，请老师赐教

喝酒的毛毛虫 · 发表于 2024-3-12 10:20

我最大的疑惑就是如何实现拖进来了如何又在执行完任务之后存回去

3190496160 · 发表于 2024-3-12 11:19

Sub 宏1()
Application.ScreenUpdating = False
Dim dlgOpen As FileDialog
Dim d As Object
Dim ar As Variant
Dim br()
Set d = CreateObject("scripting.dictionary")
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
With dlgOpen
  If .Show <> -1 Then MsgBox "您没有选择文件夹！": Exit Sub
   lj = .SelectedItems(1)
End With
ReDim br(1 To 100000, 1 To 1)
f = Dir(lj & "\*.html")
Do While f <> ""
Set wb = Workbooks.Open(lj & "\" & f, 0)
With wb.Worksheets(1)
      r = .Cells(Rows.Count, 1).End(xlUp).Row
      ar = .Range("a1:a" & r)
End With
wb.Close False
For i = 1 To UBound(ar)
      If ar(i, 1) <> "" Then
         If InStr(ar(i, 1), ".") > 0 Then
            zf = Split(ar(i, 1), ".")(1)
            If zf <> "" Then
                  If Not d.exists(zf) Then
                     n = n + 1
                     br(n, 1) = zf
                  End If
            End If
         End If
      End If
Next i
f = Dir
Loop
If n <> "" Then
Columns(2) = Empty
[b1].Resize(n, 1) = br
End If
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-3-12 11:20

提取数据.rar (16.97 KB, 下载次数: 2)

3190496160 · 发表于 2024-3-12 11:21

所有的html文件放到一个文件夹内，然后，选择文件夹即可

喝酒的毛毛虫 · 发表于 2024-3-13 09:49

3190496160 发表于 2024-3-12 11:19
Sub 宏1()
Application.ScreenUpdating = False
Dim dlgOpen As FileDialog

老师您好，您的方法可以将html文件中的段落文本复制到B列，但是在处理完一个html的文本后没能自动导出存储到其他文件夹。如果能在处理完一个html文件后存储一次，再执行下一个html文件，在存储一次就更好了。谢谢您。

wanghan519 · 发表于 2024-3-13 09:52

喝酒的毛毛虫发表于 2024-3-13 09:49
老师您好，您的方法可以将html文件中的段落文本复制到B列，但是在处理完一个html的文本后没能自动导出存 ...

为啥每次要拖？一次批处理整个文件夹不好吗

		自动登录	找回密码
密码			免费注册

[求助] 拖拉文件到excel再存回去的方法如何实现呢