请帮修改一下代码，谢谢

刘雄军

Sub mySave()
Application.ScreenUpdating = True
With ThisWorkbook
ActiveWorkbook.Save
Application.ScreenUpdating = True
ActiveWorkbook.SaveAs Filename:="\\192.168.207.4\化验室专用\2009\" & ActiveWorkbook.Name
ThisWorkbook.Close
End With
End Sub



此代码的大概意思是：保存后另存为，关闭。
能否加几句代码：
若本机IP地址为192.168.207.4,则提示:在本机上不用另存为.
当没有联机到192.168.207.4时,提示:未保存哟.(否则有时会提示代码错)

6688

n = dir(\\192.168.207.4\化验室专用\2009\" & ActiveWorkbook.Name & ".xls")
if n <> "" then
msgbox "在本机上不用另存为"
end if

刘雄军

把代码加进行，提示错误呀。请帮查一下，另外还有一条，没有联机时，也要提示一下呀，如：“未联机，没有另存为”

风之助

Sub IP地址()
    ComputerName = "localhost"
    Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//" & ComputerName).ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfiguration")
    For Each OpSys In OpSysSet
        If TypeName(OpSys.IPAddress) <> "Null" Then
            For Each IP In OpSys.IPAddress
                MsgBox IP, 64, "IP地址"
            Next
        End If
    Next
End Sub

风之助

如果本机注册过WinSock控件（装VB后为自动装该控件），可用以下代码：
strIP=CreateObject("MSWinsock.Winsock").LocalIP