win7无法访问xp的共享问题

最近新装的win7系统,无法通过,\\IP来访问局域网中的电脑的,提示0x80070035 错误,但其它可以访问win7的共享,  找了很久的原因终于找到了,首先,要确认以下几个服务是否开启,(services.msc,Workstation,ComputerBrowser,TCP/IP NETBIOS HELPER ,SSDP DISCOVERY)其次,开启网络发现功能,如果网络发现开启,修改后又关闭了,开启ssdp discover 服务,存看防火墙是否阻止。

只要确认以上几个服务开启,就没有问题了。

exce vba application 对象的应用

application对象的常用属性与方法

Application.Path                  获取excel 安装路径

Application.version           获取excel 版本

Application.UserName        获取excel用户名

Application.OrganizationName           获取excel组织名

Application.OperatingSystem           获取电脑的操作系统

Application.StartupPath               获取启动excel 路径

Application.DefaultFilePath              打开Excel文件时使用的默认路径

Application.TemplatesPath            模板保存的默认路径

Application.LibraryPath            库文件夹的路径

 Application.PathSeparator         路径分隔符 (\)

Application.WindowState      Excel窗口状态 (xlMaximized,xlMinimized,xlNormal)    

 Application.Height          获取excel高度

Application.Width

 Application.Left

 Application.Top

 Application.UsableHeight

    Application.UsableWidth

   & vbCrLf &    换行

Application.ActivePrinter           当前打印机名称

 Application.MemoryFree            当前剩余内存

 Application.MemoryTotal             当前Microsoft Excel的总内存

Application.MemoryUsed              被Excel使用的内存

Application.Caption            Excel主窗口标题栏的名称

Application.DisplayStatusBar            Excel状态栏是否显示

application 用法实例:

With Application

        myWState = .WindowState     ‘获取当前的窗口状态

        .WindowState = xlNormal     ‘将窗口设置为一般显示

        myWidth = .Width       ‘获取当前窗口的宽度

        myHeight = .Height     ‘获取当前窗口的高度

        .Width = 500        ‘设定窗口的宽度

        .Height = 300       ‘设定窗口的高度

        If MsgBox(“Excel窗口已经改变!” & vbCrLf & “要恢复为原来的状态吗?”, _

            vbQuestion + vbYesNo) = vbNo Then Exit Sub

        .Width = myWidth        ‘恢复窗口的宽度

        .Height = myHeight      ‘恢复窗口的高度

        .WindowState = myWState     ‘恢复窗口的显示状态

    End With

未完待续……