立即窗口介绍：
 
 
 
 
 
1.在VB编辑器窗口，选择“视图”－“立即窗口”
 在决定使用在你自己的VBA过程之前，立即窗口可以用来试验VB语言中不同的指令，函数和运算符。这是一个非常好的调试新语言的工具，你输入在这个窗口里面的指令，将会立即显示结果。
  
 
立即窗口可以在VB编辑器窗口上任意移动，也可以设置为可连接的，这样它就会出现在相同的地方。可以通过选项对话框上的“可连接的”页来打开或关闭可连接设置。在VB编辑器窗口上按下Ctrl+G就可以快速访问立即窗口。立即窗口允许你输入VBA语句，并且测试它们的结果，而不需要写成一个过程。立即窗口就像一个草稿板，你可以用它测试你的语句。如果该语句输出了你希望的结果，你就可以将立即窗口上的语句复制到你的过程中去（或者，你也可以将语句拖曳到代码窗口，如果代码窗口是可见的）
 
Worksheets("Tabelle1").Activate
Range("A1:A4").Select
[A1:A4].Value = 55
Selection.ClearContents
?Selection.Address
$A$1:$A$4
Print ActiveWorkbook.Name
Try.xlsx
?Application.Name
Microsoft Excel
?Application.Name
?12/3
 4 
?3+2:?12*8
 5 
 96 

 
如图 
 
 
 
 
运行：
 
你每次按下回车键后，Excel总是执行光标所在行的语句。如果你想要再次执行同一指令，那么点击该指令行的任意位置，回车。

在vbe编辑器中，有时候像本地窗口，监视窗口，对象浏览器窗口等等多个容易调整乱了。

 
我自己在使用这些窗口的过程中，甚至不知道什么原因把本地窗口整没了，就是说在视图 -——本地窗口 都无法弹出本地窗口。

 
碰到这样的情况我的解决办法一直是用修改注册表的方式：

 
按照以下步骤即可：

 

 
　　1.关闭Excel应用程序。

 

 
　　2.开始→运行→输入 regedit 打开注册表编辑器，进入HKEY_CURRENT_USER>Software>Microsoft>VBA>6.0>Common>Dock，双击它并删除“数值数据”下的数据。然后数据将显示为“长度为零的二进位值”。重新打开Excel，进入VBA您将发现窗格已经恢复默认设置了。这个名为Dock的二进制值保存着VBA窗口中各窗格的各种信息。

 
   当然您也可以直接在vba中对注册表进行调用修改。

 
  以上是我学习vba过程中的一点心得和体会。希望能和大家分享

工作中经常遇到别人发来的表格进行数据过滤，但针对有结构保护的工作簿无法插入新表格输出过滤内容，需要对工作簿状态进行判断，有保护的在原表格指定位置输出。主要针对状态判断（处理代码可自行完善）
 
Sub 工作簿结构窗口保护()
 ActiveWorkbook.Protect Structure:=True, Windows:=False 'Structure:=True 结构保护设置为保护
 If ActiveWorkbook.ProtectStructure = True Then
 '处理代码。。。。。
 MsgBox “工作簿结构保护”
 '处理代码。。。。。
 Else
 MsgBox “工作簿结构未保护”
 End If
 If ActiveWorkbook.ProtectWindows = True Then
 '处理代码。。。。。
 MsgBox “工作簿窗口保护”
 Else
 MsgBox “工作簿窗口未保护”
 '处理代码。。。。。
 End If
 End Sub

 
想要下载网页的 CSV文件 ，因为需要打开网页后，点击“SAVE AS EXCEL”的链接，出现“下载文件”的窗口，点击“保存”，出现“另存为”的窗口，修改文件的保存名称，点击保存。才算完成。
 
在这里最重要的问题是：color=DarkRed]无法得到下载CSV文件的具体地址，只能通过点击链接--点击保存--另存为  来完成
 
为了用VBA实现这一系列的功能，而且避免需要手动使用鼠标或者键盘进行保存操作，我想了很多办法。
 
1.我试过QueryTable， 但因为所要下载的内容不是网页显示的数据，不能实现。
 
2. 我也试过API 的 URLDownloadFile，也无法实现，因为没有需要下载文件的具体地址
 
3. 我也尝试过右键获得文件的具体地址，但是无法实现。
 
4. 试过IE 控件，这样将 ie.document.execcommand "saveas" 只是将网页“另存为”，而不是下载我所需要的文件。
 
所以，我觉得可能只有用点击链接--点击保存--另存为的方法来实现所需CSV文件的下载。
 
因为我要下载的文件是内部网的文件，所以无法把例子直接放上来。但是我在坛子里发现了一个类型的帖子，http://club.excelhome.net/viewth ... p;page=1#pid3360137， 我把那位楼主的例子拿来试一下，希望高手能够帮帮我。我觉得这个也是一个很典型的例子，因为网页下载需要用到鼠标控制的另存为，在坛子里还没有看到成功的例子。
 
下面是链接的帖子中的yq7654提供的例子；
 
超链接是个DOC文件,我现在要用ＭＯＵＳＥ右键＂目标另存为(Ｓ)＂来下载这个文件
 
下边是代码，请帮我瞧瞧红色的部分，是啥原因？
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Const HWND_BOTTOM = 1
 
Private Const SWP_SHOWWINDOW = &H40
 
Private Const SWP_HIDEWINDOW = &H80
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
 
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
 
Private Const WM_GETTEXT = &HD
 
Dim CADObject As Object
 
Sub test()
 
Dim myIE2 As SHDocVw.InternetExplorer '
 
Dim n As Integer
 
n = 0
 
Set myIE2 = New SHDocVw.InternetExplorer '
 
myIE2.navigate "http://club.excelhome.net/viewthread.php?tid=224784"
 
myIE2.Visible = True
 
Do While myIE2.Busy: DoEvents: Loop
 
Do While myIE2.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
 
myIE2.Document.all.tags("a")(51).Click
 
h1 = FindWindow("#32770", "文件下载") '获取文件下载对话框句柄"文件下载
 
‘一直到这里都是成功的，这时候已经出现了"文件下载“的对话框，但是下面的程序就无法运行
 
希望下面能够使用VBA 实现：   1. 自动点击”文件下载“对话框下的 ”保存“键
 
2. ”保存“键后会出现”另存为“对话框，自动在”另存为“对话框中键入”mydocument" 为新的文件名称。
 
If h1 = 0 Then MsgBox "不能下载！": Exit Sub
 
SetWindowPos h1, HWND_BOTTOM, -100, -100, 0, 0, SWP_HIDEWINDOW
 
SendKeys ("%s"), True         '　SendKeys ("%(s)"),
 
SendKeys后，h2总为＂０＂，啥意思？
 
h2 = FindWindow("#32770", "另存为")  '获取另存为对话框句柄
 
SetWindowPos h2, HWND_BOTTOM, -100, -100, 0, 0, SWP_HIDEWINDOW
 
EditBox& = FindWindowEx(h2, 0, "ComboBoxEx32", vbNullString)
 
e4& = FindWindowEx(EditBox&, 0, "ComboBox", vbNullString)             '这个是写文件名位置的那个下拉框
 
e5& = FindWindowEx(e4&, 0, "Edit", vbNullString)             '这下才到文本框
 
strCaption = String(1024, Chr(0))           '初始化字符串
 
SendMessageByString e5&, WM_GETTEXT, 1025, strCaption           '向系统发送获得的“edit”栏中字符串的命令
 
strCaption = Split(strCaption, Chr(0))(0)         '根据   默认文件名   长度得到   默认文件名   值
 
txt = strCaption
 
SendKeys "d:\" & txt, True                                                     '输入文件名
 
SendKeys "%(s)", True         '         '保存
 
SendKeys "%(y)", True         '         '替换
 
MsgBox "您的文件已经保存！"
 
End Sub