解答的案例汇总

wowo000 · 发表于 2022-8-6 20:49

本帖最后由 wowo000 于 2022-8-7 06:35 编辑

liulang0808 发表于 2022-8-4 21:24
将表格数据拆分到文本文件中

尊敬的liulang0808版主老师：打搅，请问咋写代码将附件里的文本文档里的“VBA代码”导入Excel的VBAProject中模块里去呢？最好是弹窗选择路径那种。谢谢！

wowo000 · 发表于 2022-8-6 20:55

本帖最后由 wowo000 于 2022-8-26 20:27 编辑

liulang0808 发表于 2022-8-4 21:24
将表格数据拆分到文本文件中

尊敬的liulang0808版主老师：打搅。请问咋写代码将附件里的“vba代码”文本文档里的代码导入Excel中的VBAProject里面的模块中去呢？最好是弹出选文件路径那种。谢谢！

liulang0808 · 发表于 2022-8-7 07:45

wowo000 发表于 2022-8-6 20:55
尊敬的liulang0808版主老实说：打搅。请问咋写代码将附件里的“vba代码”文本文档里的代码导入Excel中的V ...

Sub 按钮1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
      .InitialFileName = ThisWorkbook.Path & "\"
      .Title = "请选择对应文本文件"
      .AllowMultiSelect = False
      .Filters.Clear
      .Filters.Add "文本文件", "*.txt"
      If .Show Then f = .SelectedItems(1) Else Exit Sub '
End With
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString ReadUTF(f)
End Sub

Function ReadUTF(ByVal FileName As String) As String
With CreateObject("ADODB.Stream")
      .Type = 2
      .Mode = 3
      .Open
      .LoadFromFile FileName
      .Charset = "UTF-8"
      .Position = 2
      ReadUTF = .ReadText
      .Close
End With
End Function

liulang0808 · 发表于 2022-8-7 20:53

根据区间提取数据

mmwwdd · 发表于 2022-8-8 07:27

厉害,支持版主,解答都保留着呢

liulang0808 · 发表于 2022-8-14 11:45

将表格数据拆分到文本文件中

liulang0808 · 发表于 2022-8-17 21:01

按照姓名拆分为多个工作簿

liulang0808 · 发表于 2022-8-25 21:17

考勤工时秒出统计

依清洲 · 发表于 2022-8-26 11:14

很棒，楼主辛苦了，谢谢

liulang0808 · 发表于 2022-8-26 19:54

本帖最后由 liulang0808 于 2022-8-26 20:22 编辑

获取照片拍摄时间

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

[分享] 解答的案例汇总

评分

点评

评分

评分