VB关于webbrowser相关操作大全
VB关于webbrowser相关操作大全
1、防止新窗口里头打开网页
代码1：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set frm = New Form1
frm.Visible = True
Set ppDisp = frm.WebBrowser1.object
End Sub
代码2：
有这段代码，有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub
代码3：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error Resume Next
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.object
frmWB.Visible = True
frmWB.Top = Form1.Top
frmWB.Left = Form1.Left
frmWB.Width = Form1.Width
frmWB.Height = Form1.Height
End Sub
功能差不多，任选一个。
2、去掉滚动条
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.Body.Scroll = "no"
End Sub
实际上上面的效果不咋地，如果懂得HTML知识，你可以在读取网页的时候，读取HTML源码，查找替换，再写入只需在
之间插入代码： 即可。其中x表示水平滚动条，将其改为y 的话就可以隐藏垂直滚动条。当然也有其他方法，比如修改网页的尺寸呀？有的时候部分元素的居中改为左对齐也能有效果
将WebBrower放在PictureBox控件中，用PictureBox的边框挡住WebBrower的边框。
例如,将WebBrowser1放大点,将PictureBox变小点...PictureBox的appearance设置为0-flat，呵呵，OK~~
3、禁止鼠标右键
Private Function M_Dom_oncontextmenu() As Boolean
Webbrowser1.Document.oncontextmenu = False
End Function
'引用Microsoft HTML OBject Library
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document
End Sub
4、如何获得网页的容
先给个例子：
innerHTML:设置或获取位于对象起始和结束标签的 HTML
测试一下：
5、多框架框架页面访问
'下面两句可以访问到多框架容
'.Document.ParentWindow.Frames.Length
'.Document.ParentWindow.Frames(1).Document.all.tags("a")
'等待多框架网页全部加载完毕，否则出错
While .Busy Or .ReadyState <> 4 Or .Document.ParentWindow.Frames.Length = 0
DoEvents
Wend
6、获得浏览器信息
Private Sub Command1_Click()
WebBrowser1.Navigate ".applevb."
End Sub
Private Sub Command2_Click()
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print https://www.wendangku.net/doc/b616289878.html,erAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
7、弹出Webbrowser消息窗口
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
oWindow.confirm "abcd"
VB调用webbrowser技巧集2
8、向Webbrowser中写入HTML容的几种方法
向Webbrowser中写入HTML容的几种方法
首先在Form_Load中加入
WebBrowser1.Navigate "about:blank"
确保Webbrowser1可用
方法1：
Dim s As String
Dim stream As IStream
s = ""
s = s + ""
s = s + "
hello world
"
s = s + ""
s = s + "
WebBrowser1.Document.Write s
方法2：
Dim o
Set o = WebBrowser1.Document.selection.createrange Debug.Print o
If (Not o Is Nothing) Then
o.pasteHTML "哈哈"
Set o = Nothing
End If
方法3：
'插入文本框
Dim o
Set o = WebBrowser1.Document.selection.createrange o.execCommand "InsertTextArea", False, "xxx"
9、控制页面滚动
WebBrowser1.Document.parentwindow.scrollby 0, 30
10、判断页面是否可以前进后退
Private Sub Command1_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ".applevb."
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If (Command = CSC_NAVIGATEBACK) Then
Command2.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command1.Enabled = Enable
End If
End Sub
11、如何获得网页中被选中部分的HTML
Private Sub Command1_Click()
Dim objSelection
Dim objTxtRange
Set objSelection = WebBrowser1.Document.selection
If Not (objSelection Is Nothing) Then
Set objTxtRange = objSelection.createRange
If Not (objTxtRange Is Nothing) Then
Debug.Print objTxtRange.htmlText
Set objTxtRange = Nothing
End If
Set objSelection = Nothing
End If
End Sub
12、Navigate的参数调用
请问：在WebBrwoser控件里提供的Navigate或者Navigate2方法中提供了传递数据
的参数，调用方式为：WebBrowser1.Navigate2(URL,[Flags],
[TargetFrameName],[PostData],[Headers])
其中PostData参数就是一个提交参数字符串，例如"name=aaa&password=123"，
但问题是为什么这个方法并不是有效的，服务器端不能取得数据？
如果这个方法是有效的话就不需要用一段html代码模拟这种调用了。
下面代码能检测出程序post出去的消息
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox PostData
End Sub
13、WebBrowser的方法、属性、事件
WebBrowser的8个方法和13个属性，以及它们的功能：
方法说明
GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项
GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项
GoHome 相当于IE的“主页”按钮，连接用户默认的主页
GoSearch 相当于IE的“搜索”按钮，连接用户默认的搜索页面
Navigate 连接到指定的URL
Refresh 刷新当前页面
Refresh2 同上，只是可以指定刷新级别，所指定的刷新级别的值来自RefreshConstants 枚举表，
该表定义在ExDisp.h中，可以指定的不同值如下：
REFRESH_NORMAL 执行简单的刷新，不将HTTP pragma: no-cache头发送给服务器REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新
REFRESH_CONTINUE 仅作部使用。在MSDN里写着DO NOT USE! 请勿使用
REFRESH_COMPLETELY 将包含pragma: no-cache头的请求发送到服务器
Stop 相当于IE的“停止”按钮，停止当前页面及其容的载入
属性说明
Application 如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，这个程序将返回WebBrowser
控件的自动化对象
Parent 返回WebBrowser控件的父自动化对象，通常是一个容器，例如是宿主或IE窗口Container 返回WebBrowser控件容器的自动化对象。通常该值与Parent属性返回的值相同
Document 为活动的文档返回自动化对象。如果HTML当前正被显示在WebBrowser中，则Document属性提供对DHTML Object Model的访问途径
TopLevelContainer 返回一个Boolean值，表明IE是否是WebBrowser控件顶层容器，是就返回true
Type 返回已被WebBrowser控件加载的对象的类型。例如：如果加载.doc文件，就会返回Microsoft Word Document
Left 返回或设置WebBrowser控件窗口的部左边与容器窗口左边的距离
Top 返回或设置WebBrowser控件窗口的部左边与容器窗口顶边的距离
Width 返回或设置WebBrowser窗口的宽度，以像素为单位
Height 返回或设置WebBrowser窗口的高度，以像素为单位
LocationName 返回一个字符串，该字符串包含着WebBrowser当前显示的资源的名称，如果资源
是网页就是网页的标题；如果是文件或文件夹，就是文件或文件夹的名称
LocationURL 返回WebBrowser当前正在显示的资源的URL
Busy 返回一个Boolean值，说明WebBrowser当前是否正在加载URL，如果返回true 就可以使用stop方法来撤销正在执行的访问操作
事件说明
Private Events Description
BeforeNavigate2 导航发生前激发，刷新时不激发
CommandStateChange 当命令的激活状态改变时激发。它表明何时激活或关闭Back和
Forward
菜单项或按钮
DocumentComplete 当整个文档完成是激发，刷新页面不激发
DownloadBegin 当某项下载操作已经开始后激发，刷新也可激发此事件DownloadComplete 当某项下载操作已经完成后激发，刷新也可激发此事件NavigateComplete2 导航完成后激发，刷新时不激发
NewWindow2 在创建新窗口以前激发
OnFullScreen 当FullScreen属性改变时激发。该事件采用VARIENT_BOOL的一个输
入参数来指示IE是全屏显示方式(VARIENT_TRUE)还是普通显示方式(VARIENT_FALSE) OnMenuBar 改变MenuBar的属性时激发，标示参数是VARIENT_BOOL类型的。
VARIANT_TRUE是可见，VARIANT_ FALSE是隐藏
OnQuit 无论是用户关闭浏览器还是开发者调用Quit方法，当IE退出时就会激发OnStatusBar 与OnMenuBar调用方法相同，标示状态栏是否可见。
OnToolBar 调用方法同上，标示工具栏是否可见。
OnVisible 控制窗口的可见或隐藏，也使用一个VARIENT_BOOL类型的参数StatusTextChange 如果要改变状态栏中的文字，这个事件就会被激发，但它并不理会程序是否有状态栏
TitleChange Title有效或改变时激发
14、本地文件收藏夹操作
基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.
如果你不用dir也可以用vb的dir控件.
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Public Type ITEMIDLIST
mkid As SHITEMID
End Type
Public Function SpecialFolder(ByRef CSIDL As Long) As String
locate the favorites folder
Dim R As Long
Dim sPath As String
Dim IDL As ITEMIDLIST
Const NOERROR = 0
Const MAX_LENGTH = 260
R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)
If R = NOERROR Then
sPath = Space$(MAX_LENGTH)
R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
If R Then
SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)
End If
End If
End Function
15、让Webbrowser全屏
是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏,
可以用setwindowlong取消窗体的 title,
用Call ShowWindow(FindWindow(Shell_traywnd, ), 0) 隐藏tray,就是下边那个包含开始那一行.
用Call ShowWindow(FindWindow(Shell_traywnd, ), 9) 恢复. 够详细了吧.
然后在form1.windowstate = 2 就可以了.
16、选择网页上的容
Private Sub Command1_Click()
请先选中一些容
Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
MsgBox Clipboard.GetText
End Sub
17、用IE来下载文件
Private Declare Function DoFileDownload Lib shdocvw.dll (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
Dim sDownload As String
sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)
End Sub
保存webbrowser中的HTML容
Dim oPF As IPersistFile
Set oPF = WebBrowser1.Document
oPF.Save "TheFileNameHere.htm", False
WebBrowser1.ExecWB怎么用
下面是我测试的参数
WB.ExecWB(4,1)
4,1 保存网页
4,2 保存网页(可以重新命名)
6,1 直接打印
6,2 直接打印
7,1 打印预览
7,2 打印预览
8,1 选择参数
8,2 选择参数
10,1 查看页面属性
10,2 查看页面属性
17,1 全选
17,2 全选
22,1 重新载入当前页
22,2 重新载入当前页
18、Webbrowser确定窗口对话框
某些网页出于各种考虑会弹出对话框要求信息确认，往往会中断我们的webbrowser过程，可以使用如下方法：
1.加入Microsoft Html Object
2.加入语句
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim obj As HTMLDocument
Set obj = pDisp.Document
obj.parentWindow.execScript "function showModalDialog(){return;}" '对showModalDialog引起的对话框进行确定
End Sub
而confirm引发的对话确定框可用confirm替换showModalDialog即可，Alert等同理~
WebBrowser取得网页源码Private Sub Command1_Click()
WebBrowser1.Navigate "https://www.wendangku.net/doc/b616289878.html,/sdcity.php"
End Sub
Private Sub WebBrowser1_DownloadComplete()
'页面下载完毕
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
End Sub
19、取得源码调试正常运行错误
我用WebBrowser取得网页源码，直接运行正常，但在编译后出错
提示：实时错误“91” Object 变量或 with 块变量没有设置
可能是没有下载完所致，
Private Sub WebBrowser1_DownloadComplete()
if webbrowser.busy=false then
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
end if
End Sub
20、页面元素操作
1.根据标记名(tagname)的和元素名name来找到元素,
2.给元素赋值或是执行相关的事件.
例0: 查看网页元素
dim a
for each a in wbr.document.all
text1.text=text1.text & typename(a) & vbcrlf
next
例1: 给username文本框填充容:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim doc
Dim tg
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "input" Then
if (LCase(doc.All(i).name)) = "username" then
Set tg = doc.All(i)
tg.value=text1.text
end if
End If
Next i
End Sub
例2: 找到提交按钮并点击
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim doc
Dim tg
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "input" Then
if (LCase(doc.All(i).type)) = "submit" then
Set tg = doc.All(i)
tg.click
end if
End If
Next i
End Sub
上面在MSDN2找到个答案还没试.IFRAME的网页的方法不同,可能要用到窗口.试验后再说吧.
例3: 难度的
INPUT onclick="this.disabled=true;this.value='登录中……请稍候……';document.form1.submit();" type=submit value=" 登录 "
For i = 0 To vDoc.All.length - 1
用 i 来判断submit 为第几个，再点击它
例4: 模拟鼠标点击来点击按钮
Private Declare Function GetMessageExtraInfo Lib "user32" () As Long
Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
Private Const MOUSEEVENTF_LEFTUP As Long = &H4
sub clk()
'至于按钮的坐标值就是x,y，这个你得自己找了，因为窗口放在不同的位置，坐标是不一样的，你可以用getcursorpos取得，
'不过，就算你点了，又有什么用呢？点完了还是要验证码的！
mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, GetMessageExtraInfo
mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, GetMessageExtraInfo
end sub
21、网页按钮的终极控制
'一般来说,最简单最直接的操作网页表单提交方法就是
WebBrowser1.Document.All("Namd").Value="xxxx"'填表
WebBrowser1.Document.All("DengLu").Click '按钮点击
'不过此方法需要知道该表单的各个元素的ID.一般来说,普通的网页都能直接
从网页源文件中找到这些东西.
'假如整个表单都没能在源文件中找到的,那可以用
Text1 = WebBrowser1.Document.getElementById("BiaoID").innerHTML '"BiaoID"为表单所在表格的ID
'这样Text1显示出来的就是你所要的表单的代码了.
'不过即使是得到隐藏的代码了,还是有可能碰到没ID没NAME没类型的按钮,这
怎么办呢?
'不怕,通用方法来了.
'没ID我们就给它个ID嘛.
'在DocumentComplete里网页完全打开后
'处理网页源码,给你要点击的按钮起个名(加上ID)
'例如:
Text1 =
确定
'将其变为:
Text1 =
确定
'然后用
WebBrowser1.Document.body.innerHTML = Text1.Text '将处理完
的网页装入WebBrowser1
'然后就可以用回一开始说的最简单的方法来点击了
WebBrowser1.Document.All("abc").Click '按钮点击
'怎么样,是不是很爽丫,这样就不用去思考还有没什么条件可以来定位这个按钮
然后再点击了.
'当然,还有中方法是:
Dim OButton
OButton = WebB.Document.getElementsByTagName("BUTTON")
OButton.Click '这样就点击了前边例子中的那个按钮了.
'这方法通用性也是很强,自己研磨一下你就能运用自如了.
22、执行网页中的脚本
Function js(scripts)
On Error GoTo 1
If scripts = "" Then Exit Function
Set document = WebBrowser1.document
document.parentWindow.execScript scripts, "javascript"
Exit Function
1
MsgBox "运行js脚本时发生错误!"
End Function
javascript:
function findNode(findString,obj){
var findId=true;
var findStrings=findString.split(';');
for(var i=0;i findId=true; if(obj.childNodes.length>0){ var objs=findNode(findString,obj.childNodes[i]); if(objs!=null)return objs; } for(var k=0;k var temp=findStrings[k].split('='); eval("var temp2=obj.childNodes[i]."+temp[0]) if(temp2!=temp[1]){ findId=false; break; } } if(findId){ return obj.childNodes[i]; } } return null; } 例： js "findNode('nodeName=INPUT;value=资源发布',document.documentElement).click()" 注：如你打不的不是你的页面，可以用VB的JS函数先执行一下我写的这个javascript:findNode函数如：js "function findNode(findString,obj){...." 上面findNode函数要去掉换行符，这里是为了直观才加上的换行符 例： js "findNode( 'nodeName=IMG;src=top.png;',document.documentElement).click() " 例： xxxx js "findNode( 'nodeName=IMG;src=top.png;#text=xxxx',document.documentElement).clic k() " 我用alert(document.getElementById( "tdGetSeed ").innerHTML); 看了是： 所以用： Set document = WebBrowser1.document document.getElementById("btnGetSeed").click() 是可以的 现在你不用上面那么多代码了，只要一条就行，那就是： document.getElementById("btnGetSeed").click() 或 Set document = WebBrowser1.document document.parentWindow.execScript "getSeedClick.call(document.getElementById('frmgetseed'))", "javascript " 门店销售基础五步骤之迎宾 在大部分的销售生活用品的门店中，平时光顾的顾客数量一般，如果不改进，只凭借以前传统的经营模式，是很难赚到钱的，勉强温饱而已。所以，可以考虑放弃坐销，掌握主动权的方式。迎宾就是掌握主动权的最好方法之一。增加进店率，是提高业绩的直接方法。而迎宾，可以在这之中发挥出不可小觑的作用。 对于顾客而言，会影响他们参观的因素有很多，比如，好奇、实惠、需求等等，都是有可能的因素。而迎宾，可以给客户传达出店内有活动，有新品等信息，这样客户会引发好奇心等心理因素，进而进店去看看。互帮互助销售培训发现，通常而言，进店率越高，销售额越高，转化率不一定会提升。 要想把迎宾这一动作做到最好，一定要提前做好准备，这些都是提高销售额的基础。针对这一点，互帮互助销售培训总结出以下几点： 准备工作：店内产品的排放一定要整齐，物品也要常更新。而且，店内的销售人员，在衣着打扮上要得体。销售人员就相当于门店的另一种形象。给人的感觉越正规，那么客户的信任感就会越强。在门店外，还要张贴一些海报，这些都是可以给客户创造一种有活动的热闹气氛，增加刺激。如果条件允许，还可以在门口派发一些单页，这种广告形式成本很低，宣传也是最直接，所以经常被一些门店使用。转自；互帮互助销售培训 站位：在外迎宾时，销售人员最好站在离店一点五米左右的大门两侧，而且站立的姿势整齐划一，目光注视着顾客到来的方向。 接触顾客：营业员一定要面带微笑着去迎接顾客，这样会给顾客一种亲切感。尤其是，营业员自身要有一个良好的心情，这样才能带动客户的乐观情绪。因为人是有磁场的，潜移默化之间就可以把自己的情绪传递给别人，这点要格外的主意。当发单页时，要尽量多用尊称，语言简单明了。与客户接触的可能仅仅有几秒钟，如果不能尽量快的传达出信息，客户可能就已经走了。而且，在发单页时要注意，一定不要过度的纠缠顾客，这样很容易引起反感。即使无单页可派发，也要面带微笑。不管是语言也好，心情也罢，还有微笑，在迎宾之前最好做一个系统的训练，以防临场发挥失利。转自；互帮互助销售培训引领顾客进门：当顾客对店内的活动或者产品产生好奇时，营业人员应带及时把客户带进店里，并且用礼貌的手势和称谓。很多时候，客户是因为营业员的礼貌对待而不好意思拒绝才进店的。当顾客犹豫不决时，营业员的一个请的手势，立刻就会给客户指出一个方向，那么客户就很有可能沿着这个方向去做了。 在迎宾时，有一些行为一定要禁止。比如拍手。这种方式是极度错误的。可以换位思考一下，当我们进店购物时，来这么一出，不但不会有什么喜欢的感觉，反而很排斥。所以，一定要设身处地的为客户着想。 小学少先队组织机构 少先队组织由少先队大队部及各中队组成，其成员包括少先队辅导员、大队长、中队长、小队长、少先队员，为了健全完善我校少先队组织，特制定以下方案： 一、成员的确定 1、大队长由纪律部门、卫生部门、升旗手、鼓号队四个组织各推荐一名优 在Visual Basic 6.0 中创建Word文 档 摘要：分析了Word对象模型的结构，特别是Document对象及其使用方法，提出了在Visual Basic 中创建Word格式文档的方法，并给出了该方法的应用实例。 关键词：Visual Basic，Word对象模型，文档 引言 Word文档是实际工作学习中最为常用的文档格式之一。 随着社会信息化程度的提高，一些传统的由人工完成工作逐渐转向由计算机来处理。计算机自动组卷系统便是一个典型的例子。为了追求更高的效率，一些计算机自动组卷系统的单位用户要求由软件输出Word格式的试卷不需排版直接供印刷使用。 由于Microsoft Office套件的普及，Word文档、电子表格文档、电子幻灯片等文档日渐常用。虽然在Office中各个程序的文档可以方便地转换，但是这种转换是以失去文档原本的格式为代价的。例如，在自动组卷系统中，存储在Access数据库中的试卷可以通过Access提供的导出功能产生Word文档，但产生的文档是无格式的，需花费大量时间重新排版方可符合用户在试卷格式上的要求。 针对这一问题，本文讨论通过研究Word对象模型，提出使用该对象模型创建符合用户所要求的特定格式的Word文档的方法。 Word对象模型 1、Word对象模型层次结构 对象是 Visual Basic的基石，几乎在 Visual Basic 中的每个操作都与修改对象有关。Word 的任何元素（如文档、表格、段落、域、书签等）都可以用 Visual Basic 中的对象来代表。 对象代表一个 Word 的元素，如文档、段落、书签或单个的字符。集合也是一个对象，该对象包含其他数个对象，通常这些对象属于相同的类型，例如，一个集合对象中可包含文档中的所有书签对象。通过使用属性和方法，可以修改单个的对象，也可修改整个的对象集合。 Microsoft Word Visual Basic提供一套完整的Word对象模型，这是一个以Application为顶层对象的对象层次结构。其结构如图-1所示。 对象由两种类型的成员构成，一种是属性，第二种成员是方法。 属性是对象的一个特性或者该对象行为的一个方面。例如，文档属性包含名称、内容、保存状态以及是否启用修订。要更改一个对象的特征，可以修改其属性值。要设置一个属性的值，需在对象的后面紧接一个句点、属性名称、一个等号及新的属性值。下面的示例在"MyDoc.doc"文档中启用修订。 第一章vasual basic 程序开发环境 第一节visual basic 的启动与退出 一.启动vb的四种方法： 1.使用“开始”菜单中的“程序”命令 2.使用“我的电脑” 3.使用“开始”菜单中的“运行”命令 4.建立启动visual basic6.0的快捷方式 二.vb启动后的简单设置 1.新建工程···标准exe 2.（1）SDI但文档界面 （2）MDI多文档界面 “工具”—>“选项”—>“高级”—>“SDI开发环境” 3.退出vb：ALT+Q 第二节主窗体的组成 1.标题栏：设计模式运行模式中断模式 2.菜单栏：（12个） （1）菜单的分类：直接执行弹出对话框下一级菜单 （2）进入菜单栏的方法： <1>ALT或F10激活菜单后光标健选择 <2>ALT+激活键 注：如果打开了不适当或不需要的菜单，或者执行菜单命令时打开了不需要的对话框，可以用esc健关闭 <3>快捷键：新建工程ctrl+n 打开工程ctrl+o 保存工程ctrl+s 3.工具栏 （1）工具栏的分类：编辑、标准、窗体编辑器和调试 （2）工具栏的形式：固定、浮动 （3）标准工具栏图标及作用 第三节其他窗体 一.窗体设计器和工程资源管理器 （一）窗体设计器窗口 1.窗体设计器窗口简称窗体（）from，是应用程序最终面向用户的窗口，它对 应于应用程序的运行结果。 2.如果想清楚这些小点或者改变点与点间的距离，则可通过执行“工具”菜单 中的“选项”命令(“通用”选项卡)来调整。 （二）工程资源管理器窗口 1.在工程支援管理器窗口中，含有建立一个应用程序所需要的文件的清单。工程支援管理器窗口中的文件可以分为6类， <1>窗体文件（.frm） <2>程序模块文件（.bas） <3>类模块文件（.cls） <4>工程文件（.vbp） <5>工程组文件（.vbg） <6>资源文件（.res） 2.工程支援管理器窗口中文件的分类： （1）工程文件和工程组文件 工程文件的扩展名为.vbp，每个工程对应一个工程文件。当一个程序包括两个以上的工程时，这些工程构成一个工程组，工程组文件的扩展名为.vbg 用“文件”菜单中的“新建工程”命令可以建立一个新的工程，用“打开工程”命令可以打开一个已有的工程，而用“添加工程”命令可以添加一个工程。（2）窗体文件 窗体文件的扩展名为.frm，每个窗体对应一个窗体文件，窗体及其控件的属性和其他信息（包括代码）都存放在窗体文件中。一个应用程序可以有多个窗体（最多可达255个），因此就可以有多个以.frm为扩展名的窗体文件。 执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按钮可以增加一个窗体，而执行“工程”菜单中的“移除窗体”命令可删除当前的窗体。每建立一个窗体，工程资源管理器窗口中就增加一个窗体文件，每个窗体都有一个不同的名字，可以通过属性窗口设置（name属性），其默认名字formx （x为1，2，3…..），相应的默认文件名为formx。 （3）标准模块文件 标准模块文件也称程序文件，其扩展名为.bas，它是为合理组织程序而设计的。标准模块是一个纯代码性质的文件，它不属于任何一个窗体，主要在大型应用程序中使用。 标准模块由程序代码组成，主要用来声明全局变量和定义一些通用的过程，可以被不同窗体的程序调用。标准模块通过“工程”菜单中的“添加模块”命令来建立。 （4）类模块 Visual basic 提供了大量预定义的类，同时也允许用户根据需要定义自己 的类，用户通过类模块来定义自己的类，每个类都用一个文件来保存，其扩展名为.cls （5）资源文件 资源文件中存放的是各种“资源”，是一种可以同时存放文本，图片，声 音等多种资源的文件。资源文件由一系列独立的字符串，位图及声音文件（.wav .mid）组成，其扩展名为.res，资源文件是一个纯文本文件，可 以用简单的文字编辑器编辑。 全面控制Excel 首先创建Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改Excel 标题栏： ExcelID.Caption := '应用程序调用Microsoft Excel'; 3) 添加新工作簿： ExcelID.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 5) 设置第2个工作表为活动工作表： ExcelID.WorkSheets[2].Activate; 或ExcelID.WorkSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值： ExcelID.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符： ExcelID.WorkSheets[1].Rows[8].PageBreak := 1; 10) 在第8列之前删除分页符： ExcelID.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度： ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左2-右3-顶4-底5-斜( \ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： ExcelID.ActiveSheet.Cells[1,4].ClearContents; 13) 设置第一行字体属性： ExcelID.ActiveSheet.Rows[1]https://www.wendangku.net/doc/b616289878.html, := '隶书'; ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelID.ActiveSheet.Rows[1].Font.Bold := True; ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True; 14) 进行页面设置： a.页眉： ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示'; b.页脚： ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页'; c.页眉到顶端边距2cm： ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm： ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; 销售技巧和话术经典语句 销售技巧和话术经典语句一： 1. 对销售人员来说，销售学知识是必须掌握的，没有学问作为根基的销售，只能视为投机，无法真正体会销售的妙趣。 2. 一次成功的推销不是一个偶然发生的故事，它是学习计划以及一个销售人员的知识和技巧运用的结果。 3. 推销完全是常识的运用，但只有将这些为实践所证实的观念运用在积极者身上，才能产生效果。 4. 在取得一鸣惊人的成绩之前，必须做好枯燥的准备工作。 5. 推销前的准备、计划工作，决不可疏忽轻视，有备而来才能胜券在握。准备好推销工具、开场白，该问的问题、该说的话，以及可能的回答。 6. 事前的充分准备和现场的灵感所综合出来的力量，往往很容易瓦解坚强对手而获得成功。 7. 最优秀的销售人员是那些态度最好、商品知识最丰富、服务最周到的销售人员。 8.对与公司有关的资料、说明书、广告等，均必须努力研讨、熟记。同时要收集竞争对手的广告、宣传资料、说明书等加以研讨、分析，以便做到知己知彼，采取相应对策。 9.销售人员必须多读些有关经济、销售方面的书籍、杂志，尤其必须每天阅读报纸，了解国家、社会消息、新闻大事，拜访客户这往往是最好的话题，且不致于孤陋寡闻，见识浅薄。 10. 获取订单的道路是从寻找客户开始的，培养客户比眼前的销售量更重要。如果停止补充新顾客、销售人员就不再有成功之源。 11. 对客户无易的交易也必然对销售人员有害，这是最重要的一条商业道德准则。 12.在拜访客户时，销售人员应当奉行的准则是即使跌倒也要抓一把沙，意思是销售人员不能空手而归，即使推销没有成交，也要为客户为你介绍一位新客户。 13. 选择客户、衡量客户的购买意愿与能力，不要将时间浪费在犹豫不决的人身上。 14. 强烈的第一印象的重要规则，是帮助别人感到自己的重要。2 \) L0 S- q& q9 x1 c 15.准时赴约，迟到意味着：我不尊重你的时间，迟到是没有任何借口的。假使无法避免迟到的发生，你必须在约定时间之前打通电话过去道歉，再继续未完成的推销工作。 16. 向可以做出购买决策的人推销，如果你的销售对象没有权力说买的话，你是不可能卖出什么东西的。 17. 每个销售人员都应当认识到，只有目不转睛地注视着你的可户，销售才能成功。 18、有计划且自然的接近客户，并使客户觉得有益处，而能顺利进行商洽，是销售人员必须事前努力准备的工作与策略 19、销售人员不可能与他拜访的每一位客户达成交易，他应当努力去拜访更多的客户来提高成交百分比。 20、要了解你的客户，因为他们决定着你的业绩。 21、在成为一个优秀的销售人员之前，你要成为一个优秀的调查员，你必须去发现、去追踪、去调查，直到摸准客户的一切，使他们成为你的好朋友为止。 22、相信你的产品是销售人员的必要条件，这份信心会传给你的客户，如果你对自己的商品没有信心，你的客户对他自然也没有信心，客户与其说是因为你说话的逻辑水平高而被说服，倒不如说他是被你的深刻信心所说服的。业绩好的销售人员经得起失败，部分原因是他们对于自己和所推销的产品有不折不扣地信心。 24、了解客户并满足他们的需要，不了解客户的需求，就好像在黑暗中走路，白费力气又看不到结果 vb操作word详解 Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格中的选定容。在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。要在Word中自动执行任务，可以使用这些对象的方法和属性。 关于理解和使用Microsoft Office 97对象模型的一般性容，请参阅本书的第二章“理解对象模型”。在Microsoft Office 97中的对象模型相当丰富，其中包含了大约180个对象。要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。 怎样显示Word Visual Basic帮助 要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线帮助”复选框。否则，安装程序不会安装Visual Basic帮助。如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。 要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。在“帮助主题”对话框的“目录”一表中，双击“Microsoft Word Visual Basic 参考”，然后再双击“Visual Basic 参考”。“帮助主题”对话框会重新出现，显示出Microsoft Word Visual Basic的目录和索引。 运用Application 对象 在用户启动一个Word 时段的同时，也创建了一个Application 对象。用户可以使用Application 对象的属性或方法来控制或返回应用程序围的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面。可以使用Application属性来返回Word Application 对象。以下的示例从视图状态切换到打印预览状态。 Application. PrintPreview = True Application对象的一些属性控制着应用程序的外观。例如，如果DisplayStatusBar属性为True(真)，那么状态栏是可见的，如果WindowState属性值为wdWindowStateMaximize，那么应用程序窗口处于最大化状态。以下的示例设置了屏幕上应用程序窗口的大小。 With Application .WindowState = wdWindowStateNormal .Height = 450 .Width = 600 End With 电脑的基本常识和操作方法 1、电脑由哪几部分组成? 从外观上看，电脑是由：主机(主要部分)、输出设备(显示器)、输入设备(键盘和鼠标)三大件组成。 从逻辑组成来看，电脑可以分为五大部分：控制器、运算器、存储器、输入设备、输出设备。 2、什么是电脑配置?如何查看电脑的配置? 电脑的配置是指电脑的硬件基本信息，如CPU型号、硬盘大小、显示器尺寸等。方法：①桌面查看。“我的电脑”-“属性”，可查看系统版本、CPU 型号、内存大小;若点“常规”-“设备管理器”，可查看CPU核心数、硬盘型号及大小、光驱等配置;若点“高级”-“性能设置”-“视觉效果”或“高级”，可以查看视觉效果、虚拟内存等设置。 ② “系统工具”查看。单击“开始”-“程序”-“附件”-“系统工具”-“系统信息”，即可查看电脑的详细配置。 ③软件查看。下载安装鲁大师、EVEREST、Windows优化大师、超级兔子等，也可查看详细配置，而且这些软件还可以对电脑的性能进行测试。 ④通过控制面板查看。(略) ⑤使用cmd命令：dxdiag。(略) 3、什么是操作系统?Windows系统有哪些? 现在常用的是什么系统? 操作系统(Operating System，简称OS)是一组管理电脑硬件与软件资源的程序。现在较常见的是由美国微软公司开发的窗口化操作系统，即Windows操作系统，如Windows 95、Windows 98、Windows 2000、Windows XP、Windows Vista、Windows 7、Windows8、Windows 10(按低级版本到高级版本排列)。其中以Windows 7使用最普遍、最广泛、最流行、操作最方便，不过现在新买的笔记本一般都是Win 10系统的，win10是目前最高级、功能最强大的系统，是未来市场的主流，但win10占用空间大、对电脑配置要求高(很多旧电脑都不适合装win10系统)，操作没有XP方便，且兼容性没有XP好。 4、我们常说的C、D、E、F盘是什么意思? 我们常说的C、D、E、F盘其实是硬盘(Hard Disk Drive 简称HDD，又称硬盘驱动器)的分区。 基本要求：需安装WORD Function WordReplace(FileName As String, SearchString As String, ReplaceString As String, Optional SaveFile As String = "", Optional MatchCase As Boolean = False) As Integer On Error GoTo ErrorMsg '函数运行时发生遇外或错误,转向错误提示信息 Dim wordApp As New Word.Application Dim wordDoc As New Word.Document Dim wordArange As Word.Range Dim wordSelection As Word.Selection Dim ReplaceSign As Boolean Dim I As Integer '判断将要替换的文件是否存在 If Dir(FileName) = "" Then '替换文件不存在 MsgBox "未找到" amp; FileName amp; "文件" '提示替换文件不存在信息 WordReplace = -2 '返回替换文件不存在的值 Exit Function '退出函数 End If Set wordApp = CreateObject("Word.Application") '建立WORD实例 wordApp.Visible = False '屏蔽WORD实例窗体 Set wordDoc = wordApp.Documents.Open(FileName) '打开文件并赋予文件实例 Set wordSelection = wordApp.Selection '定位文件实例 Set wordArange = wordApp.ActiveDocument.Range(0, 1) '指定文件编辑位置wordArange.Select '激活编辑位置 I = 0 '初始化替换次数值 ReplaceSign = True '初始化是否替换成功标志 Do While ReplaceSign ReplaceSign = wordArange.Find.Execute(SearchString, MatchCase, , , , , , wdFindContinue, , ReplaceString, True) '查找并替换 '判断查找并替换是否成功,如果成功替换次数值递增1 If ReplaceSign = True Then I = I + 1 End If Loop MsgBox "已完成对文档的搜索并完成 " amp; I amp; " 替换。" '提示总替换次数 '如果替换成功，则提示是否保存 用VB操作excel方法汇总 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application '声明对象变量 Me.MousePointer = 11 '改变鼠标样式 Set objExl = New Excel.Application '初始化对象变量 objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1 objExl.Workbooks.Add '增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称 objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book2" objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book3" objExl.Sheets("book1").Select '选中工作薄 感谢您的阅读，希望能帮助到您 销售技巧和话术大全 导读：本文是关于销售技巧和话术大全，希望能帮助到您！ 一、长生剑（提示引导法）：潜意识是一部车子的引擎，意识只是车子的外壳。当我们现在正在谈提示引导的时候，你会注意看以下的文章; 当你注意阅读的时候，你会不自觉的吞口水; 当你感到你吞口水的动作增加的时候，你会开始有一些特别的感觉，你会感觉到我为什么会知道你吞口水的动作会增加，你可能不了解我为什么会了解，没有关系，你只要笑一笑就可以了。刚才过程当中你是否开始吞口水?这是提示引导，一个好的沟通者你听他说话会很顺畅，你不会产生抗拒。 如何去提示引导一个人呢?在做提示引导的时候，请你避免引起一个人的负面连结或观点。什么叫负面连接或观点?现在请你千万不要想象你的手上拿了一颗柠檬，你也不要想象你正在掌起柠檬张开嘴往嘴里挤汁，你千万不要感觉柠檬汁滴在嘴里那种酸味，请你千万不要去想象。你有没有觉得你的口水分泌增加'我郁叫你不要去想柠檬了，可你却偏偏要去想柠檬和酸味，人在沟通的时候会常常引导人进入负面或容易想到负面。 提示引导的方式有两种方式：一是叫做因果提示——而且、并且。第二种是：会让你，会使你。这就是一种标准的催眠术语的话。假设你是销售房地产的，你怎么样可以设计一套方式让你能够在不断叙诉的情况之下说服对方，你可以说：“张小姐，你现在正在听我跟你介绍房子的优点的时候，就会开始注意到你如果 感谢您的阅读，希望能帮助到您。住到这个房子里面你会多么的舒服。”这句话顺畅不易引起抗拒。 提示引导常常是因为之前叙诉一些事情，讲的是前因，要把后果连接起来，后果是要传达什么信息。第一种方式是用“而且”、“并且”来连接，举例：“张先生，我知道你现在正在考虑到价格的问题。而且你也会了解品质跟价钱没有办法兼得. 因为一分钱一分货。”最好的方式是用“会让你”或“会使你” ，例如说：“当你正在考虑到要买保险的时候，会让你想象到给你的家人和孩子一份安全的保障是多么重要。”这种作法会把顾客的抗拒程度降低很多。提示引导有两条原则：第一不要和他人说不能什么; 第二把前 因后果用一些连接词连接起来，然后去叙述他赞成同意的事情，不断地叙述重复他现在目前的身体状态，心理状态。 二、孔雀翎（二选一法则）： 孔雀翎是一种暗器，美的让人忘乎所以的暗器。孔雀翎代表的是一种必胜的信念，一种绝对成交，一种不达目的誓不罢休的态度。 不要问：“你要不要买”，应该问：“你喜欢A 还是B?”“你要2 个还是3 个”不要问对方有没有空、有没有时间、去不去. 间一个人去不去看电影，你会得到两个答案：去或不去; 要问：“我们周六去看电影还是周日，”给他一个机会迭择。二选一法则有适当的使用的时间，很多销售技巧培训讲师或机构并没有真正理解“适当的使用时间”的重要含义，没有进入最后阶段的时候，不要动不动就使用二选一法则，对方尚未了解你到底要跟他沟通什么，销售什么，还未产生兴趣，你突然问他你打算什么时候购买. 开枪 感谢您的阅读，希望能帮助到您。时 Private oWordApplic As Word.Application Private oDocument As Word.Document Private oRange As Word.Range Private oSelection As Word.Selection Public Sub Neword() '激活com word接口 oWordApplic = New Word.Application oWordApplic.Visible = True End Sub '设置选定文本 Public Sub SetRange(ByVal para As Integer) oRange = oDocument.Paragraphs(para).Range oRange.Select() End Sub Public Sub SetRange(ByVal para As Integer, ByVal sent As Integer) oRange = oDocument.Paragraphs(para).Range.Sentences(sent) oRange.Select() End Sub Public Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean) If flag = True Then oRange = oDocument.Range(startpoint, endpoint) oRange.Select() Else End If End Sub '生成空的新文档 Public Sub NewDocument() Dim missing = System.Reflection.Missing.Value Dim isVisible As Boolean = True oDocument = oWordApplic.Documents.Add(missing, missing, missing, missing) oDocument.Activate() End Sub '使用模板生成新文档 Public Sub NewDocWithModel(ByVal FileName As String) Dim missing = System.Reflection.Missing.Value Dim isVisible As Boolean = True Dim strName As String strName = FileName 办公软件使用技巧 1.同时保存所有打开的Word文档 有时在同时编辑多个Word文档时，每个文件要逐一保存，既费时又费力，有没有简单的方法呢？在按下Shift键的同时，单击“文件”菜单，大家看，已经多出了“同时保存”和“同时关闭”命令，这可就方便多了 2.巧妙设置文档保护 在用Word 2000/XP打印一份文件时，忽然头儿有要事吩咐，要暂时离开一下，关闭文件吧，既费事又没必要，但又不想辛辛苦苦写的文件被别人破坏了。怎么办呢？执行“工具”菜单中的“保护文档”命令，在弹出的窗口中选择“保护窗体”，然后设上密码。怎么样，光标跑到了文件头，任你怎么移动鼠标、敲击键盘就是无法编辑了，不错吧。等回来时，执行“工具”菜单中的“解除文档保护”命令，一切又正常了。 3.编辑长文件更轻松 相信大家都有这样的经历：在使用Excel、Word编辑长文档时，有时需要将文章开始的多处内容复制到文章末尾。但通过拖动滚动条来回移动非常麻烦，还会出错。其实只要将鼠标移动到滚动条上面的适当位置，发现鼠标指针变成双箭头，此时按住鼠标左键 向下拖动，文档编辑区会被一分为二。你只需在上面编辑区找到文章开头的内容，在下面编辑区找到需要粘贴的位置，这样你就可以复制内容了，而不必来回切换。这种方法特别适合复制相距很远且处数较多的内容。 4.给WPS文档添加水印 先用作图软件(画笔工具等)制作一张色彩非常淡的图片(直接将Word的水印效果图“抓”下来也行)，然后打开需要添加水印的WPS文档，执行“格式→页面背景→设置”命令，打开“设置背景”对话框，切换到“图片”标签下，按“选择图片”按钮，选中刚才制作的图片，并进行适当设置后确定，就可以为文档设置上水印了。5.在金山文字中快速打开“页面设置” 在用金山文字2002处理文档时，一个最常用的操作就是设置页面。先执行“视图→标尺→水平(垂直)标尺”命令，展开“水平(垂直)标尺”打开，然后用鼠标在水平(垂直)标尺上双击，即可快速打开“页面设置”对话框，对页面进行设置了。 6.在Excel中插入拼音 在我们使用Excel时，常常会遇到十分孤僻的字，但加上拼音注释就能使人看得更明白。具体的方法是：选中想要加入拼音注释的表格，打开Excel的菜单栏中的“格式”菜单，选中“拼音信息/设置” VB操作EXCEL,实现数据写入以及数据组合 1】定义EXCEL的一系列操作 Dim xlApp As Excel.Application Dim ExcelShowStr As String Set xlApp = CreateObject("Excel.Application") xlApp.Visible = true AppLogFile.WriteLine (CStr(Date) & "_" & CStr(Time) & ":Set xlApp=new Excel.Application") Dim xlBook As Workbook Dim xlSheet As Worksheet Dim xlrow, sheetIndex, sheetColumn As Integer 'fileurl ="D:\VB英迈\Template\WriteData.xls" Editable=空值 Set xlBook = xlApp.Workbooks.Open(fileUrl, Editable) '打开EXCEL模板 Set xlSheet = xlApp.ActiveSheet -------------------------------------------------------------------------------------------- 【2】写入数据的操作 xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 1)).Merge '合并单元格 xlSheet.Cells(beginRow, 1).FormulaR1C1 = CustName '单行插入 xlSheet.Cells(beginRow, 1).V erticalAlignment = xlTop '垂直，写入数据的位置，这里为高 xlSheet.Cells(beginRow, 2).HorizontalAlignment = xlHAlignCenter '水平写入数据的位置，这里为居中 xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 19)).Font.ColorIndex = ConstModule.COLOR_BLUE '单元格的字体颜色xlSheet.Range(xlSheet.Cells(beginRow, 1), xlSheet.Cells(endRow - 1, 19)).Font.Bold = True '单元格的数据为粗体显示 V B语言基础 一、数据类型 1、数值型：取值范围：Byte(字节型)━占1字节； 0～255无符号 Integer(整型)━占2字节； -32768～32767 long(长整型)━占4字节； -2147483648～2147483647 single(单精度浮点)━占4字节；略 Double(双精度浮点)━占4字节；略 Currency(货币型)━占8字节小数点左15位，右4位 （精确定点数据类型） 2、逻辑型： Boolean(布尔型)━占2字节； true或false 3、字符串型： String?a?a定长型占字符串长度，变长型再加10 4、日期型： Date(日期型)━占8字节 100-1-1～9999-12-31 5、对象型： Object━占4字节；任何Object引用 6、变体型： Variant━变体型数字占16字节，变体型字符占22字节＋字符串长 注：此类型还包含三种特定值： Empty；Null；Error； ?7、用户定义的数据类型： ?用户可以利用Type语句定义自己的数据类型。格式如下?Type 数据类型名 ?数据类型元素名As 类型名 ?…… ?End Type ?用Type可定义类似于C语言中的结构体类型。例如：?Type Date_Rec ?RYear As Integer ?RMonth As String*3 ?RDay As Integer ?End Type ?注：记录类型中的元素可以是字符串，但必须是定长字符串，其长度由类型名加上一个星号和常数指明。 ?数据类型转换函数： ?函数名及书写格式转换结果 ?CBool（表达式）布尔型 ?CCur（表达式）货币型 ?CByte（表达式）字节型 ?CDate（表达式）日期型 ?CDbl（表达式）双精度 实用电脑文件整理技巧 一.硬盘分区 C盘_系统盘：一般不要在C盘安装程序，也不往里面存放大文件（其实在C盘安装软件对开机清理会很麻烦） D盘_程序盘：只安装程序。另外软件的工作目录、缓存目录、下载目录也设置在D盘(1，工工作目录的；2，缓存目录：比如酷狗，缓存音乐时也需要空间的；3，下载目录，如迅雷；4，系其他盘……根据自己的习惯分区即可（无非就是工作盘，资料盘，娱乐盘等）。 二.文件分类 一千个人有一千零一种对文件分类的方法，对于任何一种分类法来说，适合你的是才是最好的方法。可参考以下建议。 把有关的文件存放在一起，而不去管他们的格式（对于工作文件尤其应当重视，这样查找起来成的区分开来（处理中的、待处理的文件，建议放在桌面，这样可以随时警告自己，要尽快的处理当一个子目录中的文件过多时，你就应该继续往下建立子目录（一个文件夹中有上百文件的话分类的细化就意味着层级增多。层级越多，浏览的效率就会越低，所以整个结构最好控制在三越常用的类别，级别就应该越高（意味着可以更快的访问），你可以选择将目录的层级上调，任何大目录下建议都建立一个名为“其他”的文件夹，这个文件夹存放两类文件：1.实在不好目录保存，所以暂时存放在”其他“里 多媒体文件是一个大分类，详细说明 图片：木有用过软件，不过大部分知友都推荐用Picasa 音乐：音乐发烧友们已经讨论的很清晰了-如何整理音乐文件？ 文本：对于文本文件，如@Shinji 所言：不要把文本放在一个个doc文件中，最好使用笔记软理（当然小说之类比较大的就不要了） Word/PPT/Excel：windows系统允许对其添加标记（添加标记的地方在细节窗格，具体：文件重要：也有一些人比较懒，不愿意每次下载文件就分类存放，比如我。所以我在桌面新建了一接扔里面，当文件累积到一定数量时，再进行分类整理（容忍底线有两条：1，文件太多影响了浏========================友情提示======================== 任何分类法的原则必须且只能是：为了更快找到需要的文件。 一切与此原则相悖的分类方法都应舍弃。 三.文件命名 文件的命名必须重视，建议用容易记住的词给文件命名，方便以后检索。这能让你不需要打开 1.尽量关联起文件内容，越详细越好 001.avi，显然，不打开文件你是不会知道内容到底是什么 苍井そら.avi，那么你就知道它的内容是什么了 20080319苍井そら.avi，你知道这是什么时候拍的片了 最详细的命名，应该是有时间，有番号，有人物，有类型，有星级……比如：[ONED-944]SM-ギリギS1 NO.1 STYLE） 2.按照时间线命名，适用于工作文件 比如我大一的时候学习C语言，我对文件的命名是 120912_helloworld.cpp 121013_for循环练习.cpp 121122_calculator.cpp 工业品销售技巧和话术大全 随着国内市场化经济的日益成熟，从事销售工作的大队伍也在不断扩大。据相关部门统计，在国内从事销售工作的人员超过了二千万。每天都有新人踏上销售的征途，每天也有人在逃离销售的行列。销售工作看似简单，似乎对学历，年龄，性别等都无特别的界定；但销售工作又是那么复杂，同样从事销售工作的人，有的拿着上百万的薪资，而绝大多数却只有三千左右的收入。归根结底，从事销售工作是靠业绩说话的，每个企业都是论功行赏。 工业品的销售有五大特点： 1、项目成交周期较长，需多次沟通才能解决问题。 2、项目销售金额偏大，客户选择供应商非常慎重。 3、非常重视售后服务，作为选择供应商的重要的因素。 4、客户选择供应商非常慎重，需经过多个部门来决心。 5、人与产品缺一不可，甚至人比产品来的更重要。 因而从事工业品销售的难度更大，对销售人员的能力和素养要求更高。工业品销售人员不但要懂市场，而且要懂产品，懂技术。不但是销售策略的规划师和谋划着者；而且是销售工作的执行者和推动者。不但要了解客户的核心需求，而且掌握客户决策人的性格特征，兴趣爱好，价值取向等。不但需具备卓越的沟通能力，敏锐的洞察能力，快捷的反应能力以及果敢的决策能力；而且还需要具备人脉管理能力，资源调配能力，过程管控能力等。 某家节能设备的企业有两位营销人员，向各企业推广其节能设备；三个月后；一位营销人员空空而归，另一位营销人员签回了数百万元的订单。二者之间为什么差异如此之大呢？重要原因在于能力的差异 两手空空的营销人员见到准客户时会说：“你了解我公司的产品吗？我公司产品是由我公司独立研发，新型的节能产品；获得国家十几项专利，并被评选为当代最节能的产品，能有效帮助企业节能20%--------”他一口气说了大半个小时，客户说：“我公司暂时不需要，等有需要了再与你联系。”该销售员似乎口才流利，介绍产品滔滔不绝；但客户最终只是敷衍一句，没了下文了呢？他只是在“王婆卖瓜，自吹自夸”；话虽多，但每说到客户心坎上。 另一位签回数百万元订单的营销人员是这样说的：“王总！你是否觉得现在市场竞争压力越来越大，企业的利润约来越薄呢？ 王总说：“是的!我们现在产能是大了，但利润却越来越低了!” 营销人员说：“要提高企业的利润的最佳途径是减低生产成本呢，还是拉高产品的价
销售技巧和话术书籍
在VB中新建word文件
金文vb教程word文档
VB中对EXCEL的操作
销售技巧和话术经典语句
vb操作word详细讲解
电脑的基本常识和操作方法
VB查找并替换WORD文档中的字符串
用VB操作excel方法汇总
销售技巧和话术大全
vb net操作Word
office办公软件使用技巧大全
VB操作Excel实现读取写入打印
(完整word版)VB语言基础
实用电脑文件整理技巧(干货分享)
工业品销售技巧和话术大全