当前位置:传闻区首页 > 办公软件 > 软件 > 关于Excel的宏问题
cwqu
已解决问题

关于Excel的宏问题

关于Excel的宏问题
传闻区平台可亲可爱的远处一只羊网友在2020.03.26提了关于相关的问题,他的提问

关于Excel的宏问题

已有330次浏览,希望大家能够帮助她。

详细问题描述及疑问:萌新都不懂。问题如下:在我把导出的**复制粘贴到这个宏文档里面,然后点击了**整理。然后会发现时间段的列表下会出现一些乱码,然后我查了百度得知要改数字格式为时间。接着发现了这个时间好像不太对,而且有重复。以下是某位热心的大神弄好的宏编辑里面的代码。(我现在已经联系不上他了)希望各位大神们可以帮帮我解决一下乱码问题,时间重复问题。让我一键整理得明明白白吧OTZ。拜托你们了,感激不尽。期待您的答案,没有什么华丽的语言,但是我对你的感谢不会减少 !

本页链接:https://www.cwqu.com/news/771417150321000980.html

cwqu
满意答案
1个回答:

大海汇合,容纳百川!2020.03.2613:40回答SubMacro1()''Macro1Macro'宏由ttt录制,时间:2010-4-30''WithActiveSheet.QueryTables.Add(Connection:=_"TEXT;C:\DocumentsandSettings\zjz\桌面\其他应用程序\学习\188510036高程.txt",Destination_:=Range("B3")).Name="188510036高程".FieldNames=True.RowNumbers=False.FillAdjacentFormulas=False.PreserveFormatting=True.RefreshOnFileOpen=False.RefreshStyle=xlInsertDeleteCells.S**ePassword=False.S**eData=True.AdjustColumnWidth=True.RefreshPeriod=0.TextFilePromptOnRefresh=False.TextFilePlatform=936.TextFileStartRow=1.TextFileParseType=xlDelimited.TextFileTextQualifier=xlTextQualifierDoubleQuote.TextFileConsecutiveDelimiter=True.TextFileTabDelimiter=False.TextFileSemicolonDelimiter=False.TextFileCommaDelimiter=False.TextFileSpaceDelimiter=True.TextFileColumnDataTypes=Array(1,1,1,1,1,1).TextFileTrailingMi**sNumbers=True.RefreshBackgroundQuery:=FalseEndWithActiveWindow.SmallScrollDown:=5Range("B25").SelectWithActiveSheet.QueryTables.Add(Connection:=_"TEXT;C:\DocumentsandSettings\zjz\桌面\其他应用程序\学习\188510046高程.txt",Destination_:=Range("B25")).Name="188510046高程_2".FieldNames=True.RowNumbers=False.FillAdjacentFormulas=False.PreserveFormatting=True.RefreshOnFileOpen=False.RefreshStyle=xlInsertDeleteCells.S**ePassword=False.S**eData=True.AdjustColumnWidth=True.RefreshPeriod=0.TextFilePromptOnRefresh=False.TextFilePlatform=936.TextFileStartRow=1.TextFileParseType=xlDelimited.TextFileTextQualifier=xlTextQualifierDoubleQuote.TextFileConsecutiveDelimiter=True.TextFileTabDelimiter=False.TextFileSemicolonDelimiter=False.TextFileCommaDelimiter=False.TextFileSpaceDelimiter=True.TextFileColumnDataTypes=Array(1,1,1,1,1,1).TextFileTrailingMi**sNumbers=True.RefreshBackgroundQuery:=FalseEndWithActiveWindow.SmallScrollDown:=10Range("B33").SelectWithActiveSheet.QueryTables.Add(Connection:=_"TEXT;C:\DocumentsandSettings\zjz\桌面\其他应用程序\学习\188510065高程.txt",Destination_:=Range("B33")).Name="188510065高程".FieldNames=True.RowNumbers=False.FillAdjacentFormulas=False.PreserveFormatting=True.RefreshOnFileOpen=False.RefreshStyle=xlInsertDeleteCells.S**ePassword=False.S**eData=True.AdjustColumnWidth=True.RefreshPeriod=0.TextFilePromptOnRefresh=False.TextFilePlatform=936.TextFileStartRow=1.TextFileParseType=xlDelimited.TextFileTextQualifier=xlTextQualifierDoubleQuote.TextFileConsecutiveDelimiter=True.TextFileTabDelimiter=False.TextFileSemicolonDelimiter=False.TextFileCommaDelimiter=False.TextFileSpaceDelimiter=True.TextFileColumnDataTypes=Array(1,1,1,1,1,1).TextFileTrailingMi**sNumbers=True.RefreshBackgroundQuery:=FalseEndWithActiveWindow.SmallScrollDown:=-60EndSub加黑的是一些相同的东西,我想用循环解决问题,主要要解决的问题有这么几个,1,每次要导入的文本都在一个文件,但和上次的文件夹名称和路径都有不同;2,不能保每个文件里的行数相同,但导入后要让不同文件间的**有一定间隔;可以半自动,最好在要导入的文件下创建一个表格就可以自己找到所在的文件!求采纳,谢谢