2017-07-10 8 views
1

Excel VBAで以下のプロセスを自動化したいと考えています。 1. Puttyの特定のパスを開きます。 2.クレデンシャルでログインします 3.サーバー内のパスに移動します。 (cd/folder1/folder2) 私はできること1 & 2.私はVBAを初めて使っているので、私は第3を達成するためにhwを認識していません。VBExcelでパテを自動化する

+1

「Sendkeys」を試しましたか?たぶんあなたが最初の2つのステップのコードを投稿すれば、より簡単になるでしょう。 –

+0

'ChDir関数 "C:\ folder1の\フォルダ2" の文字列 ユーザ名= "XXXXXX" パスワードなどの文字列 薄暗いパスワードとして' – braX

+0

ます。Public Subテスト() 薄暗いPuttyPID限り 薄暗いユーザー名= "123456" P1 = "C:\ Program Files(x86)\ PuTTy \ putty.exe - ssh"&username& "@ xx.yyy.zzz.aaa - pw"&パスワード PuttyPID =シェル(pc1,1) –

答えて

0
Public Sub Test() 
    Dim PuttyPID as Long, username as String, password as String 
    username= " xxxxxx": Password= "123456" 
    P1 = "C:\Program Files (x86)\PuTTy\putty.exe - ssh" & username & _ 
    "@xx.yyy.zzz.aaa - pw" & Password 
    PuttyPID = Shell(P1, 1) 

    ''''''''''''''''''''''''''''''''''''''''''' 
    Application.Wait Now + TimeSerial(0, 0, 20) ' <-- give it time to get server prompt 
    AppActivate PuttyPID ' <-- activate it again to make sure 
    SendKeys "cd /folder1/folder2" & vbCr ' <-- vbCR to simulate CR key 
End Sub 
+1

ありがとうASHItは働いた:) –

+0

上記のコードに追加..私は特定のテキスト(例:abc)を含むログを一覧表示するコマンドを挿入しました: SendKeys "grep -il abc * .log" コードでコードを提供するのではなく、ユーザーから "abc"値を取得する方法はありますか? –

+0

アジェンダは、 "abc"というテキストが入っているfolder2のすべてのファイルをリストアウトすることです。 –

関連する問題