关于Excel的宏问题

来源:SOGOU问问
责任编辑:
字体:

设为中,打开时询问是否启用宏,如果判断宏是安全的,选择启用宏。

为了帮助网友解决“关于Excel的宏问题”相关的问题,布客网通过互联网对“关于Excel的宏问题”相关的解决方案进行了整理,用户详细问题包括:关于Excel的宏问题,具体解决方案如下:

个人感觉是你接受的那个文件有宏病毒,当你改了安全等级打开时就感染了病毒,建议用最新版本的比较好的杀毒软件杀毒,如果实在不行,备份数据后,把硬盘格式化后重新装系统

解决方法1:

VBA: Sub ouyangff() Dim Mypath, Filename As String, sht As Worksheet Set sht = ActiveWorkbook.Sheets(2) Filename = Application.GetOpenFilename("Excel 文件,*.xls

Sub Macro1() ' ' Macro1 Macro ' 宏由 ttt 录制,时间: 2010-4-30 '

2007版: 公式,定义名称,

'     With ActiveSheet.QueryTables.Add(Connection:= _         "TEXT;C:\Documents and Settings\zjz\桌面\其他应用程序\学习\188510036高程.txt", Destination _         :=Range("B3"))         .Name = "188510036高程"         .FieldNames = True         .RowNumbers = False         .FillAdjacentFormulas = False         .PreserveFormatting = True         .RefreshOnFileOpen = False         .RefreshStyle = xlInsertDeleteCells         .SavePassword = False         .SaveData = 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)         .TextFileTrailingMinusNumbers = True         .Refresh BackgroundQuery:=False     End With     ActiveWindow.SmallScroll Down:=5     Range("B25").Select     With ActiveSheet.QueryTables.Add(Connection:= _         "TEXT;C:\Documents and Settings\zjz\桌面\其他应用程序\学习\188510046高程.txt", Destination _         :=Range("B25"))         .Name = "188510046高程_2"         .FieldNames = True         .RowNumbers = False         .FillAdjacentFormulas = False         .PreserveFormatting = True         .RefreshOnFileOpen = False         .RefreshStyle = xlInsertDeleteCells         .SavePassword = False         .SaveData = 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)         .TextFileTrailingMinusNumbers = True         .Refresh BackgroundQuery:=False     End With     ActiveWindow.SmallScroll Down:=10     Range("B33").Select     With ActiveSheet.QueryTables.Add(Connection:= _         "TEXT;C:\Documents and Settings\zjz\桌面\其他应用程序\学习\188510065高程.txt", Destination _         :=Range("B33"))         .Name = "188510065高程"         .FieldNames = True         .RowNumbers = False         .FillAdjacentFormulas = False         .PreserveFormatting = True         .RefreshOnFileOpen = False         .RefreshStyle = xlInsertDeleteCells         .SavePassword = False         .SaveData = 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)         .TextFileTrailingMinusNumbers = True         .Refresh BackgroundQuery:=False     End With     ActiveWindow.SmallScroll Down:=-60 End Sub

   End With Next i End Sub 把这个Excel文件放在你准备导入的txt文件的文件夹中,打开它,运行test。 代码没验证,但类似的做过,应该没问题,只要你原来的宏正

加黑的是一些相同的东西,我想用循环解决问题,主要要解决的问题有这么几个,

当它生成表格时,你要复制在选择性粘贴,这样你下在U盘就可以了,注意,最重要的是要复制后再选择性粘贴。 至于你说的小部分的问题,应该是你的宏的问题,那你直接生成宏的时

1,每次要导入的文本都在一个文件,但和上次的文件夹名称和路径都有不同;

Private Sub CommandButton9_Click() ActiveChart.SetSourceData Source:=Range("Sheet2!$I$2:$J$33") ActiveChart.ChartType = xlXYScatterSmooth ActiveCh

2,不能保证每个文件里的行数相同,但导入后要让不同文件间的数据有一定间隔;

Cells(8, 5) < 0 And Cells(8, 6) < 0 And (Cells(8, 6) * 1000 / Cells(8, 5)) < 70 这里有3个条件要同时成立,才会添加内容提示,根据猜则,这不合常理,应该是任一条件成

可以半自动,最好在要导入的文件下创建一个表格就可以自己找到所在的文件!

cells前面要加sheet名称。 Sheets("sheet1").Range("A1:B2").Copy Range(Sheets("sheet1").Cells(1, 1),Sheets("sheet1").Cell

求采纳,谢谢

excel时可以用! 下面是方法:我复制过来的: (1)选择【工具】菜单中的【宏】命令,从级联菜单中【宏】命令,出现【宏】对 话框。 (2)在【宏名】列表框中选定要编辑或调试的宏

扩展阅读,根据您访问的内容系统为您准备了以下扩展内容,希望对您有帮助。

关于excel宏的问题

错误提示不是说的很详细了吗?你可以设置该宏的安全性为高,设置的时候你可以新建一个Excel文档,然后点击工具栏的 工具-宏-安全性-对话框中点击高,然后保存文件,完了后你保存完了,再打开你录入好宏的那个文件。祝你成功。

关于excel启动宏的问题

有可能是防火墙或者什么安全软件 阻止了宏的运行,或者是你的2007 的临时文件占据了位置,你彻底清理一下 还有就是 VBA宏是需要系统支持的,如果操作系统是精简版的,也有可能出现这种情况!

www.book1234.com true http://www.book1234.com/37770/77141715032100/771417150321000980.html report 16313
娱乐时尚
历史文化
真视界
旅游美食
精彩图文
我爱我车
母婴健康
关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
Copyright © 2004-2018 book1234.com All Rights Reserved. 布客网 版权所有
京ICP备10044368号-1 京公网安备11010802011102号
教育考试: 学历财经建筑 医药公考资格外语电脑作文招聘中小学留学 文档 移民 文库专栏23问答中心z资讯z资讯1资讯涨资讯涨资讯1资讯图书馆IT编程数码信息解决方案信息中心IT科技问答新闻中心软件教室设计大全网络相关英语学习开发编程考试中心参考范文管理文库营销中心站长之家IT信息中心商学院数码大全硬件DIY企业服务网吧在线百科硬件知识手机平板汽车游戏家电精彩摄影现代家居IT女人经验健康养生猎奇创业攻略教育学习历史时尚潮流最近更新涨知识