qzbysh

Attribute VB_Name = "备货单汇总"
Sub 备货单汇总()
'
' 合并当前目录下所有工作簿到新建工作表,
' 第一个合并的文件保留标题行
'
    Debug.Print ">>>>>>>>>"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False '//关闭系统提示

qzbysh

Attribute VB_Name = "导出图片"
' 导出图片为png格式到当前目录
' 文件名为 图片 顶部 A列 最近单元格内容
Sub 导出图片()
    Debug.Print ">>>>>>>>>"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False '//关闭系统提示
    On Error Resume Next
    Dim num As Integer
    For Each shp In Sheets(1).Shapes '活动工作簿中所有的形状集合

qzbysh

@echo off
if not "%1"=="" goto %1
del "%temp%\#" 2>nul
start /b %~fs0 :timer_loop

:agn

set/p=  <nul&pause>nul
>"%temp%\#" type nul
echo 自动关机已取消...

qzbysh

/* Done by    Rajandran R  */
/* Author of www.marketcalls.in  */
/* Date : 05th Apr 2016 */

function GetSecondNum()
{
    Time = Now( 4 );
    Seconds = int( Time % 100 );
    Minutes = int( Time / 100 % 100 );
    Hours = int( Time / 10000 % 100 );