精华内容
下载资源
问答
  • 编辑文件程序在本窗体范围内进行捕捉鼠标位置,打开txt文件,修改性,另存为等功能。(VB6.0源代码编写)
  • 代码 Dim ls_File Set objArgs = WScript.Arguments '命令行参数 ls_File = objArgs(0) '第一个参数通常就是文件名 ls_new = left(ls_File, len(ls_File) -5 )+".pdf" Set pptApp = CreateObject("Word.Applic...

    先创建一个vbs文件, 定义如下:

     

    代码
    Dim ls_File
    Set objArgs = WScript.Arguments '命令行参数

    ls_File
    = objArgs(0) '第一个参数通常就是文件名
    ls_new = left(ls_File, len(ls_File) -5 )+".pdf"
    Set pptApp = CreateObject("Word.Application") '申明调用函数
    pptApp.Visible = True ',一定要有此句,否则会出错
    Set MyPress = pptApp.Documents.Open( ls_file) 'Document 对象
    MyPress.Saveas ls_new, 17
    pptApp.Quit

    代码里的17 是另存为选项,可以用宏看到每个机器对应菜单的数字编号.

     

    需要使用这个文件的话,只需执行如下命令就ok:

    C:\WINDOWS\system32\wscript.exe c:\convert.vbs "C:\SourceFile.docx"

     

    这里假定vbs 文件名叫convert.vbs, 目标文件是SourceFile.docx, 另存为的结果也在SourceFile的目录

    转载于:https://www.cnblogs.com/xpp123/archive/2011/01/07/1930253.html

    展开全文
  • 复制问题解决后,使用saveas解决另存为的问题。在代码中用format函数取现在的时间,VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数...
  • 【说明】:一、该宏工具可以单独使用也可以连续使用:顺序1是按照某列字段将一个工作表拆分成多个工作薄,顺序2是将多个工作薄单独另存为独立工作表,另存过程会在原表路径下新建一个文件夹“临时拆分存放”。...

    7b32c754bfad71518a9e131a426db5b6.png

    第一步,建立宏:点击“开发工具”-“VB”,右键添加两个模块,每个模块代码如下。保存后即可使用。

    第二步,使用。点击:“开发工具”-“宏”,选择相应模块,点击“执行”。

    1cfdb60d9b527ffaf16038305b093104.png

    【说明】:

    一、该宏工具可以单独使用也可以连续使用:顺序1是按照某列字段将一个工作表拆分成多个工作薄,顺序2是将多个工作薄单独另存为独立的工作表,另存过程会在原表路径下新建一个文件夹“临时拆分存放”。

    二、建好的宏默认只能这一个表中用,如果想要实现在所有表格中通用,EXCEL中可以参考下面链接。WPS每次使用时只要保持有宏的表处于打开状态即可。

    三、喜欢请点赞。

    个人宏工作簿使VBA代码在本机任何工作簿都可用-百度经验jingyan.baidu.com

    附件:第一个模块代码:

    Sub 顺序1拆分成多个工作薄()

    Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x&

    Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd&

    'Application.ScreenUpdating = False '关闭屏幕更新

    'Application.DisplayAlerts = False '关闭警告信息提示

    Set d = CreateObject("scripting.dictionary") 'set字典

    Set Rg = Application.InputBox("请框选拆分依据列!只能选择单列单元格区域!", Title:="提示", Type:=8)

    '用户选择的拆分依据列

    tCol = Rg.Column '取拆分依据列列标

    tRow = Val(Application.InputBox("请输入总表标题行的行数?"))

    '用户设置总表的标题行数

    If tRow = 0 Then MsgBox "你未输入标题行行数,程序退出。": Exit Sub

    Set Rng = ActiveSheet.UsedRange '总表的数据区域

    arr = Rng '数据范围装入数组arr

    tCol = tCol - Rng.Column + 1 '计算依据列在数组中的位置

    aCol = UBound(arr, 2) '数据源的列数

    For i = tRow + 1 To UBound(arr) '遍历数组arr

    If Not d.exists(arr(i, tCol)) Then

    d(arr(i, tCol)) = i '字典中不存在关键词则将行号装入字典

    Else

    d(arr(i, tCol)) = d(arr(i, tCol)) & "," & i '如果存在则合并行号,以逗号间隔

    End If

    Next

    For Each sht In Worksheets '遍历一遍工作表,如果字典中存在则删除

    If d.exists(星海涤月) Then sht.Delete

    Next

    kr = d.keys '字典的key集

    For i = 0 To UBound(kr) '遍历字典key值

    If kr(i) <> "" Then '如果key不为空

    r = Split(d(kr(i)), ",") '取出item里储存的行号

    ReDim brr(1 To UBound(r) + 1, 1 To aCol) '声明放置结果的数组brr

    k = 0

    For x = 0 To UBound(r)

    k = k + 1 '累加记录行数

    For j = 1 To aCol '循环读取列

    brr(k, j) = arr(r(x), j)

    Next

    Next

    With Worksheets.Add(, Sheets(Sheets.Count))

    '新建一个工作表,位置在所有已存在sheet的后面

    .Name = kr(i) '表格命名

    .[a1].Resize(tRow, aCol) = arr '放标题行

    .[a1].Offset(tRow, 0).Resize(k, aCol) = brr '放置数据区域

    Rng.Copy '复制粘贴总表的格式

    .[a1].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    .[a1].Select

    End With

    End If

    Next

    Sheets(1).Activate '激活第一个表格

    Set d = Nothing '释放字典

    Erase arr: Erase brr '释放数组

    MsgBox "数据拆分完成!"

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

    End Sub


    第二个模块代码:

    Sub 顺序2另存为独立工作表()

    '将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称

    Application.ScreenUpdating = False '关闭屏幕更新

    Dim ff As String '定义字符变量

    ff = ThisWorkbook.Path & "临时拆分存放"

    '指定建立新的工作簿保存到的路径

    If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff

    '如果临时拆分存放的文件夹不存在,就新建文件夹;mkdir用来 新建文件夹

    Dim st As Worksheet '定义工作表变量

    For Each st In Worksheets '遍历所有的sheet工作表

    st.Copy ' 拷贝sheet工作表到新的工作簿,即将工作表另存为新的文件。

    ActiveWorkbook.SaveAs ff & "" & st.Name & ".xlsx" '保存工作簿,并命名成工作表的名称

    ActiveWorkbook.Close '关闭工作表

    Next '执行遍历循环体

    MsgBox "另存成功!"

    Application.ScreenUpdating = True '开启屏幕更新

    End Sub

    展开全文
  • 将sheet工作表批量另存为独立工作簿,并命名成sheet表名称 用法:打开excel文档,按ALT+F11调出VB编辑器,点插入模块,粘贴代码,按F5运行即可。 Sub saveworkbook() '将sheet工作表批量另存为独立工作簿,并...

    将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称
    用法:打开excel文档,按ALT+F11调出VB编辑器,点插入模块,粘贴代码,按F5运行即可。
    Sub saveworkbook()        '将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称
    Dim sht As Worksheet     '定义字符变量
    Application.ScreenUpdating = False     '关闭屏幕更新
    ipath = ThisWorkbook.Path & '\'          '指定建立新的工作簿保存到的路径
    For Each sht In Sheets       '遍历所有的sheet工作表
       sht.Copy     ' 拷贝sheet工作表到新的工作簿,即将工作表另存为新的文件。
       ActiveWorkbook.SaveAs ipath & "\" & sht.Name & ".xlsx"  '保存工作簿,并命名成工作表的名称
       ActiveWorkbook.Close         '关闭工作表
       Next '执行遍历循环体
    Application.ScreenUpdating = True   '开启屏幕更新
    End Sub
    ------------以下为实测成功代码-----------
    Sub saveworkbook()
    Dim sht As Worksheet
    Application.ScreenUpdating = False
    ipath = ThisWorkbook.Path & "\"
    For Each sht In Sheets
       sht.Copy 
       ActiveWorkbook.SaveAs ipath & sht.Name
       ActiveWorkbook.Close
       Next
    Application.ScreenUpdating = True
    End Sub

    展开全文
  • 和一个时间控件'把以下的代码另存为一个FORM1.FRM的文件(先新建一个文本文档,保存后改名字即可)'代码开始VERSION 5.00Begin VB.Form Form1BackColor = &H00000...

    满意答案

    qt77882888

    2014.01.03

    采纳率:48%    等级:12

    已帮助:11321人

    一个上下左右移动的例子

    花了一些时间来做了一个上下左右移动的例子

    包括四个标签控件,和一个时间控件

    '把以下的代码另存为一个FORM1.FRM的文件

    (先新建一个文本文档,保存后改名字即可)

    '代码开始

    VERSION 5.00

    Begin VB.Form Form1

    BackColor = &H00000000&

    BorderStyle = 1 'Fixed Single

    Caption = "字体上下左右来回移动的动画"

    ClientHeight = 5490

    ClientLeft = 45

    ClientTop = 435

    ClientWidth = 7605

    LinkTopic = "Form1"

    MaxButton = 0 'False

    MinButton = 0 'False

    ScaleHeight = 5490

    ScaleWidth = 7605

    StartUpPosition = 3 '窗口缺省

    Begin VB.Timer Timer1

    Left = 7020

    Top = 4980

    End

    Begin VB.Label Label4

    AutoSize = -1 'True

    BackStyle = 0 'Transparent

    Caption = "字体左右来回移动"

    ForeColor = &H00FFFF00&

    Height = 180

    Left = 6180

    TabIndex = 3

    Top = 3720

    Width = 1440

    End

    Begin VB.Label Label3

    AutoSize = -1 'True

    BackStyle = 0 'Transparent

    Caption = "字体左右来回移动"

    ForeColor = &H008080FF&

    Height = 180

    Left = 0

    TabIndex = 2

    Top = 2100

    Width = 1440

    End

    Begin VB.Label Label2

    AutoSize = -1 'True

    BackStyle = 0 'Transparent

    Caption = "字体上下来回移动"

    ForeColor = &H00FF80FF&

    Height = 180

    Left = 4560

    TabIndex = 1

    Top = 3180

    Width = 1440

    End

    Begin VB.Label Label1

    AutoSize = -1 'True

    BackStyle = 0 'Transparent

    Caption = "字体上下来回移动"

    ForeColor = &H0000FFFF&

    Height = 180

    Left = 1860

    TabIndex = 0

    Top = 2760

    Width = 1440

    End

    End

    Attribute VB_Name = "Form1"

    Attribute VB_GlobalNameSpace = False

    Attribute VB_Creatable = False

    Attribute VB_PredeclaredId = True

    Attribute VB_Exposed = False

    Option Explicit

    Dim i As Integer '标签1上下移动的位置

    Dim j As Integer '标签2上下移动的位置

    Dim c As Integer '标签3左右移动的位置

    Dim z As Integer '标签4左右移动的位置

    Dim lab1move As Boolean '标签1移动的状态

    Dim lab2move As Boolean '标签2移动的状态

    Dim lab3move As Boolean '标签3移动的状态

    Dim lab4move As Boolean '标签4移动的状态

    Private Sub Form_Load()

    Timer1.Interval = 10 '每过10豪秒执行一次

    i = 0 '初始化标签1的位置

    j = Me.Height '初始化标签2的位置

    z = Me.Width '初始化标签4的位置

    c = 0 '初始化标签3的位置

    End Sub

    Private Sub Timer1_Timer()

    If lab1move = False Then '状态为向下

    '标签1从顶部移动到底部

    If i < Me.Height Then '小于窗体的高

    i = i + 100 '每次移动100

    Label1.Top = i '移动标签1

    End If

    If i > Me.Height Then '大于窗体的高

    lab1move = True '状态为向上

    i = Me.Height '=窗体的高

    End If

    Else '状态为向上

    '标签1从底部移动到顶部

    i = i - 100 '每次移动100

    Label1.Top = i '移动标签

    If i <= 0 Then lab1move = False: i = 0 '标签1从底部移到顶部

    End If

    If lab2move = False Then '状态为向上

    j = j - 100 '每次移动100

    Label2.Top = j '移动标签2

    If j < 0 Then lab2move = True: j = 0 '标签1从底部移到顶部

    Else '状态为向下

    If j < Me.Height Then j = j + 100: Label2.Top = j '移动标签2

    If j > Me.Height Then lab2move = False: j = Me.Height '状态为向上

    End If

    If lab3move = False Then '状态为向右

    If c < Me.Width Then c = c + 100: Label3.Left = c '每次移动100移动标签

    If c > Me.Width Then lab3move = True: c = Me.Width

    Else '状态为向左

    c = c - 100

    Label3.Left = c '每次移动100移动标签

    If c < 0 Then lab3move = False: c = 0 '状态为向右

    End If

    If lab4move = False Then '状态为向左

    z = z - 100

    Label4.Left = z '每次移动100移动标签

    If z < 0 Then lab4move = True: z = 0

    Else '状态为向右

    If z < Me.Width Then z = z + 100: Label4.Left = z '每次移动100移动标签

    If z > Me.Width Then lab4move = False: z = Me.Width '状态为向左

    End If

    End Sub

    '代码结束.

    00分享举报

    展开全文
  • 下面我们就来看看如何用javascript代码实现浏览器菜单命令(以下代码在Windows XP下浏览器中调试通过)。 一、【文件(F)】菜单中命令实现 1、〖打开〗命令实现 [格式]:document.execCommand("open") [说明]这...
  • 摘要:VB源码,其它类别,C语言编辑器  由VB代码开发C语言编辑器,软件功能:  1.具备记事本所有编辑功能;...若您在TC中执行另存为命令后在本软件中刷新按钮将无法实现两个程序同步.其他信息参见帮助文件.
  • VB6.0 多种使用通用对话框方法演示含源代码,为对话框增加常见“打开”、“另存为”、“字体”、“打颖、“帮助”。演示了当“颜色”、“字体”等对话框按钮被按下时,程序如何执行,将TextBox字体属性根据...
  • 今天项目需求更改,需要我用VB写个程序,复制并另存为一份EXCEL表格,我不知道能不能用纯VB的代码来实现,但是我用EXCEL 的VBA实现了!   Private Sub Command1_Click()  Dim ExcelApp As Object  Dim MyExcel As...
  • 近期在做一个【在文件另存为窗口快速输入自定义路径字符串】功能,一开始基本思路是: 研究分类各种软件的另存为窗口控件类型、标题 ...基本思路是没有问题,如文本编辑器的另存为窗口,使用如下代码可...
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    165.htm 建立你自己器-发送到软盘 ◆ 166.htm 建立你自己器-复制 ◆ 167.htm 建立你自己器-另存为 ◆ 168.htm 建立你自己器-全选 ◆ 169.htm 建立你自己器-页面设置 ◆ ...
  • VB实现屏幕抓图

    2008-07-29 09:00:50
    有时由于屏幕上图片无法保存,因此我们需要用到抓图功能。按一下键盘上“印屏幕(Pr Scrn)”键可以轻松实现抓图功能。但有时我们需要在程序... 本实例不仅有抓图功能,而且支持将抓取图片另存为图片文件。
  • HTML代码转换器

    2008-06-13 13:26:07
    用C#.net制作 HTML代码转换器 可将html代码转换jsp asp php vb.net 等代码另存```使用起来方便```界面没作要求` 不错``
  • VB程序设计及应用

    2012-11-26 14:07:12
    8.3.2 另存为(SaveAs)对话框 8.3.3 颜色(Color)对话框 8.3.4 字体(Font)对话框 8.3.5 打印(Printer)对话框 8.3.6 帮助(Help)对话框 8.4 自定义对话框 8.4.1 自定义对话框...
  • 今天,将原先在VS 2010下开发项目升级到VS 2015,发现程序显示乱码,如下图所... 2、文件-另存为。    3、在保存时,选择“编码保存”。    4、“确认另存为”对话框,选择“是”。     
  • 文章目录原理实现创建宏模板创建加载远程宏文档文件运行总结 原理 word远程宏模板是利用word文档加载附加模板时向...创建一个docx文件,Alt+F11 启动vb编辑器,将代码粘贴进去,另存为dotm文件 测试弹框代码 创建
  • 可实现FTP上传下载,建文件夹等功能,从网上找了一个类,对其进行修改和功能补充,正常使用,非常方便. 切记在使用FtpFindFirstFile 函数查找相应...代码另存为FTP.cls 代码 Option Explicit'Copyright Graham Dal...
  • 将下面代码复制下来,另存为convert.vbs。使用时请把所有要转换ppt文件复制到目录c:\下。双击运行此脚本文件即可。 代码的每一行都加了注释。你可以根据自己需要自已做些改动。 如果你想获得更多应用。你...
  • 第十七步:把MyCustomUI.xlsm工作薄另存为加载宏工作薄,保存类型选择“Excel 加载宏(*.xlam),保存在“EXCEL2010选项卡安装与卸载”文夹里,文件名不变 第十八步:新建一个新工作薄,保存在“EXCEL2010选项卡安装...
  • big2gb.zip 一个BIG5码<=>GB码互换完全免费ActiveX控件(81KB) 20,capscreen.zip 这是一个屏幕拷贝控件,可以实现全屏拷贝并支持另存为位图类型文件 (28KB) 21,digital.zip 能够以液晶...
  • s026_DisableX.ZIP 与系统有关控件, 控制按钮,鼠标,任务条,重启计算机,程序优先级等(17KB) 55,s025_capscreen.ZIP 这是一个屏幕拷贝控件,可以实现全屏拷贝并支持另存为位图类型文件(28KB) ...
  • s026_DisableX.ZIP 与系统有关控件, 控制按钮,鼠标,任务条,重启计算机,程序优先级等(17KB) 55,s025_capscreen.ZIP 这是一个屏幕拷贝控件,可以实现全屏拷贝并支持另存为位图类型文件(28KB) ...
  • s026_DisableX.ZIP 与系统有关控件, 控制按钮,鼠标,任务条,重启计算机,程序优先级等(17KB) 55,s025_capscreen.ZIP 这是一个屏幕拷贝控件,可以实现全屏拷贝并支持另存为位图类型文件(28KB) ...
  • s026_DisableX.ZIP 与系统有关控件, 控制按钮,鼠标,任务条,重启计算机,程序优先级等(17KB) 55,s025_capscreen.ZIP 这是一个屏幕拷贝控件,可以实现全屏拷贝并支持另存为位图类型文件(28KB) ...
  • big2gb.zip 一个BIG5码<=>GB码互换完全免费ActiveX控件(81KB) 20,capscreen.zip 这是一个屏幕拷贝控件,可以实现全屏拷贝并支持另存为位图类型文件 (28KB) 21,digital.zip 能够以液晶...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版飞鸽传书软件,但是Java版确实不多,因此这个Java...

空空如也

空空如也

1 2 3 4
收藏数 76
精华内容 30
关键字:

vb另存为的代码