10:54:01【 转载互联网】 作者： &&|&责编：李强
&&& &为了解决用户可能碰到关于"excel宏以一个表格内的内容在指定位置创建文件夹并打开 然后复制一个指定excel文件到那个文件夹里"相关的问题，突袭网经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"excel宏以一个表格内的内容在指定位置创建文件夹并打开 然后复制一个指定excel文件到那个文件夹里"相关的详细问题如下:&quot:\E.Open (&quot:\ & fname &&quot:\)
创建文件夹Workbooks, True ' & fname & &)
复制指定文件到指定文件夹fs.copyfile &xx xx\.xxx&x;E:\)
打开文件夹Set fs = CreateObject(&;xxx\Scripting.FileSystemObject&x.Value
指定表格内容MkDir (&xx&#92自己做一直出错求大神指点Sub 创建文件夹()Dim fname
定义变量fname = ActiveSheet, &quot.Cells(A1)===========突袭网收集的解决方案如下===========
解决方案1：&打开文件夹Set Fs = CreateObject(&定义变量fname = ActiveSE;aa.xlsx&quot:&#92:&#92, &)
'&quot：1 MkDir语句中的括号里应为 (&quot。2 打开文件夹语句不对;;, True 'e.FileSystemObject&指定表格内容MkDir (&quot.copyfile &创建文件夹：Sub 创建文件夹()Dim fname
&#39.Range(& & fname)
&#39.Open (&quot。――注意引号和&的配合;
'aa有这么几个问题;复制指定文件到指定文件夹Fs.xlsx& & fname)
'Sa1&E;\Workbooks:\ & fname & &E;创建文件夹&#39:\scan\)
'd:\ & fname)
&#39。那个open是打开指定文件的语句3 对象创建后注意关闭（清理后再离场）测试后的完整代码为;&&quot解决方案2：<
================可能对您有帮助================
问：这是sheet1中的内容，现在将各要素（白色单元格）自动填充在sheet2中对...答：发来给你写, 写清楚要求, , 完了传上来 ===========================================问：条件如下： excel文件中有三个表，表1，表2，表3 在表1中A2~A500,B2~B50...答：以下是代码，后附文件。 Public Sub jisuan()Dim Hanghao As LongDim Liehao As LongFor Liehao = 1 To 2 For Hanghao =...===========================================问：工作表一A1~A100每一格有一副图片内容，现在在工作表二内设置个按钮，关...答：代码如下： Sub test()Dim MyShape As Shape, k As Integer, b As String, mm As IntegerApplication.ScreenUpdating = FalseFor Each MyShape In Worksheets(2).Shapes If MyShape.Type 8 Then MyShape.Delete End IfNextmm = Worksheets(1).Sh...===========================================问：关于用宏将多个excel表中的某些数据复制到一个excel表中的指定位置 我现...答：这些表是同一个文件里的么？ 如果是的话，可以编一个vba程序或者录制宏，你去youku搜录制宏一学就会了 讲的话很难讲清楚 如果不是同一个文件 用宏就很难了。。===========================================问：关于用宏将多个excel表中的某些数据复制到一个excel表中的指定位置 我现...答：在Excel表顶部工具栏的空白处点鼠标 右 键，“控件工具箱”―“命令按钮”，在Excel表上建立按钮，“双击”该按钮，在两行间输入命令。 Private Sub CommandButton1_Click() sheets("sheet1").range("A2").value = "第一个按钮" End Sub 其他的按钮同样...===========================================问：前提是不打开该指定表名和地址的EXCEL表，答的好的有奖答：不打开是不可能的，但可以静默打开，即看不到文件打开，进程里会多个Execl.exe Set xlapp = CreateObject("Excel.Application") xlapp.Workbooks.Open 指定文件 操作******* xlapp.Workbooks(文件).Close savechanges:=False xlapp.Quit Set xla...===========================================问：例如，book1中A1：C7和E9：W13如何复制到book2中呢？答：很久以前干过这事，在宏里面写应该能够实现，先在book1中选定范围，然后COPY，然后再激活book2中的sheet，选定要粘贴的范围，然后粘贴。 大致上是： Windows("book1.xls").Activate Sheets1.Range(A1：C7).Select Selection.Copy Windows("book2...===========================================问：具体如下 图所示 我文件中有很多的sheet表，比如HW47 HW69 HW87等等，比...答：'如果结果放在 "汇总表"的A列 sub test() for each sh in sheets rw = 1 '从A1开始显示 if sh.name"汇总表" then if f1(sh) then sheets("汇总表").range("A" & rw) = sh.name rw = rw +1 end if end if next end sub function f1(sh as workshe...===========================================问：如题，在SHEET1里面复制一个单元格区域（固定区域），要选择性粘贴（数...答：很复杂哈，那你自己录制一个宏呗===========================================很久以前干过这事,在宏里面写应该能够实现,先在book1中选定范围,然后COPY,然后再激活book2中的sheet,选定要粘贴的范围,然后粘贴。
Windows("book1....===========================================给要录制的宏起一个名字(也可用默认的名字),然后下面操作将被录制到宏中:将表格全选...
下面给这段宏指定一组快捷键:按"工具-宏-宏",在打开的窗口中找到刚才录制的宏名字,用...===========================================不打开是不可能的,但可以静默打开,即看不到文件打开,进程里会多个Execl.exe Set xlapp = CreateObject(&Excel.Application&)xlapp.Workbooks.Open 指定文...===========================================方法1、如果要为图表、图形指定宏,可右键单击对象,在弹出的快捷菜单中选中"指定宏",再在弹出的列表中选中要指定的宏;方法2、如果要为菜单按钮指定宏,可先右键单击任意...===========================================你的目的是想像人事管理那样,输入一个名字,后面一个格子就出来一个头像
用宏可以实... 变化时,启动处理过程
2、检测单元格的行,列,值
3、根据值到指定目录查找符合要求的...===========================================自己写了一个宏,可以把同一文件夹中的每张excel表的第一列,合在指定的一张excel里面.顺序是按照各文件名依次进行合并.希望对你有所帮助 ^_^
附件:合并工作薄.rar===========================================不知道跟你的问题有没有关系,请看一下吧,
对于一个包含许多数据列的Excel工作表而... 选择"指定宏"命令,在弹出的对话框中,选择"查看语文"宏,单击"确定"返回自定义对话框。...===========================================使用excel中的宏代码可以完成,在excel中插入一个模块,把以下代码粘贴到模块中,运行一下就可以了,以下代码实现的是超链接。Sub Macro1()Dim i As IntegerFor i = 1 To 2
Ra...===========================================
你仿照已经有内容的A4纸的样式做一个Excel表格,做完后把这个Excel表打印出来和样板比对一下,如果有不吻合的地方就修改直到你做的excel表打印出来的内容和你已有的A...===========================================用宏么?
Dim sht As Worksheet, sht1 As Worksheet, rng$
Set sht = ActiveSheet
Set sht1 = Sheets("Sheet2") &#39;Sheet2代表另一个表的名字
rng...===========================================
12345678910怎样用vb依次读取一个文件夹中若干个不知道名字的指定格式的文件(这里以Excel表格为例)?
[问题点数：20分，结帖人lisbjing]
怎样用vb依次读取一个文件夹中若干个不知道名字的指定格式的文件(这里以Excel表格为例)?
[问题点数：20分，结帖人lisbjing]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2013年7月 荣获微软MVP称号2012年7月 荣获微软MVP称号2006年1月 荣获微软MVP称号2008年1月 荣获微软MVP称号2007年1月 荣获微软MVP称号2005年1月 荣获微软MVP称号2003年9月 荣获微软MVP称号
2003年7月 总版技术专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。excel表格中，使用宏，如何实现把一个文件拷贝到另外一个文件夹？_百度知道
excel表格中，使用宏，如何实现把一个文件拷贝到另外一个文件夹？
我有更好的答案
第一个参数是源文件路径;;x;xxx&#92, True
&#39;;x;&S)xx xx&#92;xx&#92.FileSystemObject&quot:&#92.copyfile &quot.xxx&quot:&#92, &quot，第二个是目标文件夹用下面的语句
Set fs = CreateObject(&quot
其他类似问题
为您推荐：
您可能关注的推广
excel表格的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁访问本页面，您的浏览器需要支持JavaScriptExcel表格中创建超链接跳转到Word文档内指定位置的方法 - Office办公助手
专业的Office办公软件学习和Office办公软件教程网站！
Excel表格中创建超链接跳转到Word文档内指定位置的方法
时间：06-22　来源：Office办公助手()
在Excel中可以利用超链接来打开某个Word文档，这个操作估计很多人都会，但如果要让超链接直接定位到Word文档内的某个指定位置，该怎样操作呢?不要犯难，本文就以为例讲解下创建超链接跳转到Word文档内指定位置的两种方法。
方法一：超链接到Word内的书签
1、在Word文档内插入书签。在Word 2010中，打开文档并将光标定位到需要跳转的位置，在&插入&选项卡的&链接&组中单击&书签&，输入一个书签名称，单击&添加&。如下图在&abc.docx&文档中添加了一个名称为&书签1&的书签。
2、在Excel 2010中右击需要设置超链接的单元格，选择&超链接&，弹出&插入超链接&对话框。找到并选择上述Word文档，这时在对话框下方的&地址&栏中即可看到文档的路径，如本例为&J:\文档\abc.docx&。这时不能通过单击&书签&按钮的方法添加书签，因为单击&书签&按钮Excel会弹出一个&Microsoft Excel 既不能打开此文件，也不能解析此类文件&的对话框，如图。
正确的方法是直接在路径后方添加&#书签1&，这时地址变成：
J:\文档\abc.docx#书签1
单击&确定&关闭对话框完成超链接设置。
3、如果Word文档已打开，单击单元格中的超链接即可跳转到&书签1&的位置。如果文档之前没有打开，单击超链接打开文档后未跳转到书签位置，再次单击超链接即可。
实际上，在上述路径的后面添加&#&号及文档内的某些文字，单击超链接就会跳转到该文字第一次出现的位置。
另外，还可使用HYPERLINK函数添加超链接，如在单元格中输入公式：
=HYPERLINK(&J:\文档\abc.docx#书签1&,&书签1&)
=HYPERLINK(&[J:\文档\abc.docx]书签1&,&书签1&)
方法二：利用选择性粘贴
复制Word文档中指定位置附近的某些内容，然后在Excel中右击某个单元格进行选择性粘贴，这时会弹出&选择性粘贴&对话框，可以看到这个对话框与在Excel中复制后再进行选择性粘贴时的对话框不同，如下图。
选择&超链接&后确定，这样，单击该单元格即可跳转到Word文档中的指定位置。
上一篇： 下一篇：