oa办公系统脚本错误问道抢万年

发布时间:2020-11-21 来源:脚本之家 点击:


现在,给大家介绍一种极为方便、巧妙的方法:用Shell语句调用系统“创建快捷方式”向导正如您可能预想的那样,要锁定任务栏,我们的脚本只需将TaskBarSizeMove的值设置为0就万事大吉了

按键精灵调用其他脚本
我们可以使用脚本来合并文本文件吗?是的,可以DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVal
hwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)
AsLong
PublicConstCB_FINDSTRING=&H14C
PrivateSubCombo1_Change()
DimiStartAsInteger
DimsStringAsString
StaticiLeftOffAsInteger
iStart=1
iStart=Combo1.SelStart
IfiLeftOff<>0Then
Combo1.SelStart=iLeftOff
iStart=iLeftOff
EndIf
sString=CStr(Left(Combo1.Text,iStart))
Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(
Left(ombo1.Text,iStart)))

IfCombo1.ListIndex=-1Then
iLeftOff=Len(sString)
combo1.Text=sString
EndIf
Combo1.SelStart=iStart
iLeftOff=0
EndSub
静态变量iLeftOff指定了字符长度


sf-ws-02VBScript只有一种数据类型,称为Variant

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

if objArgs.Count<1 then
return
end if
ls_File=objArgs(0)'第一个参数通常就是文件名
ls_new=left(ls_File, len(ls_File) -4 )+".pdf"

Set pptApp=CreateObject("PowerPoint.Application") '申明调用函数
pptApp.Visible=True '在使用PowerPoint时,一定要有此句,否则会出错

Set MyPress=pptApp.Presentations.Open( ls_file) 'Presentation 对象
MyPress.Saveas ls_new,32
pptApp.Quit
请在声明区中放入以下声明

ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
ConstSWP_FRAMECHANGED=&H20
ConstSWP_NOMOVE=&H2
ConstSWP_NOSIZE=&H1
ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZE
ConstHWND_NOTOPMOST=-2

PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong

在Form_Load使用的范例如下:

PrivateSubForm_Load()
SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWME
Me.Refresh
EndSub->


IP="jb51.net"
WQL="Select * from Win32_PingStatus Where Address='$IP'"
WQL=Replace(WQL,"$IP",IP)
n=0 : s=0
Do Until n=100
Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
Set colItems=objWMIService.ExecQuery(WQL,,48)
For Each objItem in colItems
If objItem.StatusCode=0 Then
s=s + objItem.ResponseTime
n=n + 1
End If
Next
Loop
WScript.Echo "Average:" & s / n
传递数组参数

PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext
'
DimwsAsWorkspace
DimdbAsDatabase
DimrsAsRecordset
'
ForEachwsInWorkspaces
ForEachdbInws.Databases
ForEachrsIndb.Recordsets
rs.Close
Setrs=Nothing
Next
db.Close
Setdb=Nothing
Next
ws.Close
Setws=Nothing
Next
'
EndSub->

dim oExcel,oWb,oSheet
Set oExcel=CreateObject("Excel.Application")
Set oWb=oExcel.Workbooks.Open("E:\其他\新装电话表.xls")
Set oSheet=oWb.Sheets("Sheet1")
MsgBox oSheet.Range("B2").Value '#提取单元格B2内容
'.....
3、如果是XP系统,可以使用如下代码
Dim objFileDlg
Set objFileDlg=CreateObject("UserAccounts.CommonDialog")
objFileDlg.Filter="Excel File (*.xls) |*.xls"
If objFileDlg.ShowOpen Then
msgbox "您选择的文件是:" & objFileDlg.FileName & vbCrLf
End If

VBS控制Excel的一些常见方法:
(一) 使用动态创建的方法
首先创建 Excel 对象,使用ComObj:
oExcel=CreateObject( "Excel.Application" )
1) 显示当前窗口:
oExcel.Visible=True
2) 更改 Excel 标题栏:
oExcel.Caption="应用程序调用 Microsoft Excel"
3) 添加新工作簿:
oExcel.WorkBooks.Add
4) 打开已存在的工作簿:
oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )
5) 设置第2个工作表为活动工作表:
oExcel.WorkSheets(2).Activate

oExcel.WorksSheets( "Sheet2" ).Activate
6) 给单元格赋值:
oExcel.Cells(1,4).Value="第一行第四列"
7) 设置指定列的宽度(单位:字符个数),以第一列为例:
oExcel.ActiveSheet.Columns(1).ColumnsWidth=5
8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
oExcel.ActiveSheet.Rows(2).RowHeight=1/0.035 ' 1厘米
9) 在第8行之前插入分页符:
oExcel.WorkSheets(1).Rows(8).PageBreak=1
10) 在第8列之前删除分页符:
oExcel.ActiveSheet.Columns(4).PageBreak=0
11) 指定边框线宽度:
oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight=3
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式:
oExcel.ActiveSheet.Cells(1,4).ClearContents
13) 设置第一行字体属性:
oExcel.ActiveSheet.Rows(1).Font.Name="隶书"
oExcel.ActiveSheet.Rows(1).Font.Color=clBlue
oExcel.ActiveSheet.Rows(1).Font.Bold=True
oExcel.ActiveSheet.Rows(1).Font.UnderLine=True
14) 进行页面设置:
a.页眉:
oExcel.ActiveSheet.PageSetup.CenterHeader="报表演示"
b.页脚:
oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页"
c.页眉到顶端边距2cm:
oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035
d.页脚到底端边距3cm:
oExcel.ActiveSheet.PageSetup.HeaderMargin=3/0.035
e.顶边距2cm:
oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035
f.底边距2cm:
oExcel.ActiveSheet.PageSetup.BottomMargin=2/0.035
g.左边距2cm:
oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035
h.右边距2cm:
oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035
i.页面水平居中:
oExcel.ActiveSheet.PageSetup.CenterHorizontally=2/0.035
j.页面垂直居中:
oExcel.ActiveSheet.PageSetup.CenterVertically=2/0.035
k.打印单元格网线:
oExcel.ActiveSheet.PageSetup.PrintGridLines=True
15) 拷贝操作:
a.拷贝整个工作表:
oExcel.ActiveSheet.Used.Range.Copy
b.拷贝指定区域:
oExcel.ActiveSheet.Range( "A1:E2" ).Copy
c.从A1位置开始粘贴:
oExcel.ActiveSheet.Range.( "A1" ).PasteSpecial
d.从文件尾部开始粘贴:
oExcel.ActiveSheet.Range.PasteSpecial
16) 插入一行或一列:
a. oExcel.ActiveSheet.Rows(2).Insert
b. oExcel.ActiveSheet.Columns(1).Insert
17) 删除一行或一列:
a. oExcel.ActiveSheet.Rows(2).Delete
b. oExcel.ActiveSheet.Columns(1).Delete
18) 打印预览工作表:
oExcel.ActiveSheet.PrintPreview
19) 打印输出工作表:
oExcel.ActiveSheet.PrintOut
20) 工作表保存:
if not oExcel.ActiveWorkBook.Saved then
oExcel.ActiveSheet.PrintPreview
21) 工作表另存为:
oExcel.SaveAs( "C:\Excel\Demo1.xls" )
22) 放弃存盘:
oExcel.ActiveWorkBook.Saved=True
23) 关闭工作簿:
oExcel.WorkBooks.Close
24) 退出 Excel:
oExcel.Quit
(二) 使用VBS 控制Excle二维图
1)选择当第一个工作薄第一个工作表
set oSheet=oExcel.Workbooks(1).Worksheets(1)
2)增加一个二维图
achart=oSheet.chartobjects.add(100,100,200,200)
3)选择二维图的形态
achart.chart.charttype=4
4)给二维图赋值
set series=achart.chart.seriescollection
range="sheet1!r2c3:r3c9"
series.add range,true
5)加上二维图的标题
achart.Chart.HasTitle=True
achart.Chart.ChartTitle.Characters.Text=" Excle二维图"
6)改变二维图的标题字体大小
achart.Chart.ChartTitle.Font.size=18
7)给二维图加下标说明
achart.Chart.Axes(xlCategory, xlPrimary).HasTitle=True
achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text="下标说明"
8)给二维图加左标说明
achart.Chart.Axes(xlValue, xlPrimary).HasTitle=True
achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text="左标说明"
9)给二维图加右标说明
achart.Chart.Axes(xlValue, xlSecondary).HasTitle=True
achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text="右标说明"
10)改变二维图的显示区大小
achart.Chart.PlotArea.Left=5
achart.Chart.PlotArea.Width=223
achart.Chart.PlotArea.Height=108

如何用vbs把excel的单元格数据写到txt

把以上代码存为Excel2Txt.vbs双击执行就行了

VBS操作Excel


不用找MSDN,在EXCEL帮助中就能找到,看“编程信息”/“Microsoft Excel Visual Basic 参考”/“属性”/“Q-R”/“Rows 属性”的介绍,和“编程信息”/“Microsoft Excel Visual Basic 参考”/“方法”/“I-L”/“Insert 方法”的介绍,就能明白这条语句的语法。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号