解答的案例汇总

wowo000

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

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

wowo000

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

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

liulang0808

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

根据区间提取数据

mmwwdd

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

liulang0808

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

liulang0808

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

liulang0808

考勤工时秒出统计

依清洲

很棒，楼主辛苦了，谢谢

liulang0808

获取照片拍摄时间