利用excel批量重命名

利用EXCEL为照片批量重命名

一、准备照片。事前将扫描好的图片按顺序排好序列，将图片文件拷到电脑上备用，如存放在“D：\\订单\\1.20”文件夹内。

二、巧用EXCEL填充柄，批量建立改名命令行。第一步：打开EXCEL软件。在A列中输入图片名“DSCN0001．JPG”，然后用填充柄向下拖动，一直到合适的数字为止。然后，在B列中“命名字”等信息输入“13118120100001．JPG”并用填充柄向下拖动直到合适的位置停止。第二步：在C列中输入以下内容“=\\\下输入）后按下回车键，即可出现相应结果。第三步：向下拖动该单元格的填充柄，直至对应左侧的内容。最终效果如图所示。最后将C列中的全部内容选中并进行复制。●这是利用EXCEL填充句柄批量生成的重命名命令。

四、建立“重命名”批处理命令。

在D：\\订单\\1.20文件夹下单击鼠标右键，选择新建“文本文档”命令。然后将该文件名改为“重命名．BAT”。右击该文件，选择“编辑”命令，进入该批处理文件的编辑状态。在编辑空白区右击，选择“粘贴”，将刚才EXCEL文件中C列中的内容复制到这里。然后存盘并退出。 五、运行“重命名．BAT”进行批量更名。

回到“D：\\订单、1.20”文件夹后，直接双

利用Excel批量快速发送电子邮件，分两步：

1. 准备待发送的数据：

a.) 打开Excel，新建Book1.xlsx b.) 填入下面的内容，

第一列：接收人，第二列：邮件标题，第三列：正文，第四列：附件路径 注意：附件路径中可以有中文，但是不能有空格

这里你可以写更多内容，每一行作为一封邮件发出。

注意：邮件正文是黑白文本内容，不支持加粗、字体颜色等。（如果你需要支持彩色的邮件，后面将会给出解决办法）

2. 编写宏发送邮件

a.) Alt + F11 打开宏编辑器，菜单中选：插入->模块 b.) 将下面的代码粘贴到模块代码编辑器中：

?代码list-1

Public Declare Function SetTimer Lib \

(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long

Public Declare Function KillTimer Lib \

(ByVal hwnd As Long, ByVal nIDEvent A

简要介绍资料的主要内容,以获得更多的关注

EXCEL中如何批量删除超链接

从网上复制出来的资料 难免总是有很多超链接 会让文件很大 而且如果不用outlook时 还非常不方便

而一个个删除又太麻烦

方法一：

一：选择“工具”—“宏”—“录制新宏”

二：在“录制新宏”的对话框中给宏取个名字，比如就叫“批量去除超级链接”

三：然后按“确定”后出现一个录制宏的小方框，小方框内只有“停止录制”“与相对引用”两个按钮

四：为了方便省事，直接按“停止录制”，因为在后面我们可以对宏进行直接编辑

五：选择“工具”—“宏”—“宏”

六：在“宏”名中选择之前取的那个宏名“批量去除超级链接”，然后点右边的“编辑”

七：在接下来出现的对话框中输入以下的代码然后关闭对话框

（清空之前的内容输入:）

Sub 批量删除自动生成的链接()

Cells.Hyperlinks.Delete

End Sub

八：选择“工具”—“宏”—“宏”，然后按“执行”就可以批理删除当前的工作表中所有超级链接 方法二：

按下“Alt+F8”打开宏窗口，在“宏名”处输入一个名称后单击“创建”（注意创建命令的要能使用的前提是当前没有任何宏，如果之前已经创建了一个宏，那么这个“创建”按钮将是灰色的不可用，方法是可以先将之前的创建的所

UG二次开发中主模型重命名实现

瞿文燕

摘要:UG文件引用关系使得UG文件重命名成为问题，本文介绍可以用于UG文件重命名的三种方法，根据装配件及其他引用文件同步更改的要求，最终选定装配克隆操作。本文详细介绍了包括图纸文件和装配文件的克隆装配实现方法。 关键词：UG/Open；装配克隆；重命名

Abstract: It makes UG file renaming as a problem because the rename lost the reference information in the file. It introduce three methods which been used in UG file rename. We choose the assemble clone method for reference information altered synchronous in assemble file and other file which relates to it. We introduce the draft and assemble clone method carefully.

Keywords: UG/

UG二次开发中主模型重命名实现

瞿文燕

摘要:UG文件引用关系使得UG文件重命名成为问题，本文介绍可以用于UG文件重命名的三种方法，根据装配件及其他引用文件同步更改的要求，最终选定装配克隆操作。本文详细介绍了包括图纸文件和装配文件的克隆装配实现方法。 关键词：UG/Open；装配克隆；重命名

Abstract: It makes UG file renaming as a problem because the rename lost the reference information in the file. It introduce three methods which been used in UG file rename. We choose the assemble clone method for reference information altered synchronous in assemble file and other file which relates to it. We introduce the draft and assemble clone method carefully.

Keywords: UG/

关键词：Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完美的了,遗憾的是,如果你遇到需要一次性大批量插入100张、1000张图片时,也是重复插入100次、1000次么？答案是你可以这么做,等到手抽筋的时候你大概会想,要是有一种方法大批量插入该有多好!——有!

Excel中如何实现批量插入图片？

关键词：Excel；批量插入/添加图片；数据分析；张立良老师；数据小兵

实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片，一张、两张、三张、、、一张一张的插入你觉得已经够完美的了，遗憾的是，如果你遇到需要一次性大批量插入100张、1000张图片时，也是重复插入100次、1000次么？答案是你可以这么做，等到手抽筋的时候你大概会想，要是有一种方法大批量插入该有多好！——有！

我自己惯性的插入三张图片后，我开始抱怨微软太不尽人意了。为什么没有批量插入图片的功能？于是我把问题推给了百度和谷歌，两位老大哥很快给出了答案——批量插入图片的宏、批量插入图片的小插件，惊喜下，试了各种方法，新浪博主ahzll的excel工具箱（

简要介绍资料的主要内容,以获得更多的关注

EXCEL中如何批量删除超链接

从网上复制出来的资料 难免总是有很多超链接 会让文件很大 而且如果不用outlook时 还非常不方便

而一个个删除又太麻烦

方法一：

一：选择“工具”—“宏”—“录制新宏”

二：在“录制新宏”的对话框中给宏取个名字，比如就叫“批量去除超级链接”

三：然后按“确定”后出现一个录制宏的小方框，小方框内只有“停止录制”“与相对引用”两个按钮

四：为了方便省事，直接按“停止录制”，因为在后面我们可以对宏进行直接编辑

五：选择“工具”—“宏”—“宏”

六：在“宏”名中选择之前取的那个宏名“批量去除超级链接”，然后点右边的“编辑”

七：在接下来出现的对话框中输入以下的代码然后关闭对话框

（清空之前的内容输入:）

Sub 批量删除自动生成的链接()

Cells.Hyperlinks.Delete

End Sub

八：选择“工具”—“宏”—“宏”，然后按“执行”就可以批理删除当前的工作表中所有超级链接 方法二：

按下“Alt+F8”打开宏窗口，在“宏名”处输入一个名称后单击“创建”（注意创建命令的要能使用的前提是当前没有任何宏，如果之前已经创建了一个宏，那么这个“创建”按钮将是灰色的不可用，方法是可以先将之前的创建的所

完善的利用excel宏调用outlook自动批量发送电子邮件

在excel宏中建立两个模块，分别复制以下两个模块
（根据需要调整相应参数）

提取签名函数：
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function


主程序：
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub kaifaxin()
On Error Resume Next
Di

完善的利用excel宏调用outlook自动批量发送电子邮件

在excel宏中建立两个模块，分别复制以下两个模块
（根据需要调整相应参数）

提取签名函数：
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function


主程序：
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub kaifaxin()
On Error Resume Next
Di

替换word文本框内容

创建以下宏

Sub 替换word文本框内容()

Dim mShape As Shape

Dim tmpString As String

For Each mShape In ActiveDocument.Shapes If mShape.Type = msoTextBox Then

tmpString = mShape.TextFrame.TextRange.Text

mShape.TextFrame.TextRange.Text = Replace(tmpString, "查找内容", "替换内容") End If

Next

End Sub

将查找内容跟替换内容更换即可

替换EXCEL文本框内容 Sub 文本框批量修改文字()

Dim tb As Object

For Each tb In ActiveSheet.Shapes If tb.Type = msoTextBox Then

tb.DrawingObject.Caption = Replace(tb.DrawingObject.Caption, "查找内容", "替换内容")