SendKeysを使いたい。
XP-Excel2003です。
Microsoft Bisual Basicのヘルプに記述してある次の構文のうち、
SendKeysが実行されません。
Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1)
AppActivate ReturnValue
For I = 1 To 20
SendKeys I & "{+}", True
Next I
SendKeys "=", True
SendKeys "%{F4}", True
F8キーにて、順次実行は出来るのですが、SendKeysが有効になりません。
参照設定の何かにチェックがついていないのだと思います。
その何かを、または別の方法をお教え願います。
コマンドプロンプトを終了せずにリダイレクトするには？
VBからコマンドプロンプトを操作し、結果をLabelに貼り付けることを考えています。
しかし、コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまい、その後のコマンド入力でプロセスが見つからずエラーとなってしまいます。コマンドプロンプトは終了せずにリダイレクトの設定する方法を教えて頂けないでしょうか。
また、コマンドプロンプト自体は表示させずに実行できるのが理想なので、やり方のヒントだけでも頂けると助かります。
操作例(VBのボタンから)：cmd.exe起動 → cd c:\ → dir
エラー内容：プロセス 'c:\windows\system32\cmd.exe' が見つかりませんでした。
動作環境：VB2005、Windows XP
==============================
Public Class Form1
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Dim P1 As New System.Diagnostics.Process
P1.StartInfo.UseShellExecute = False
P1.StartInfo.RedirectStandardOutput = True
P1.StartInfo.FileName = "cmd.exe"
P1.Start()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("CD c:\{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("DIR{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
コマンドプロンプトを終了せずにリダイレクトするには？
VBからコマンドプロンプトを操作し、結果をLabelに貼り付けることを考えています。
しかし、コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまい、その後のコマンド入力でプロセスが見つからずエラーとなってしまいます。コマンドプロンプトは終了せずにリダイレクトの設定する方法を教えて頂けないでしょうか。
また、コマンドプロンプト自体は表示させずに実行できるのが理想なので、やり方のヒントだけでも頂けると助かります。
操作例(VBのボタンから)：cmd.exe起動 → cd c:\ → dir
エラー内容：プロセス 'c:\windows\system32\cmd.exe' が見つかりませんでした。
動作環境：VB2005、Windows XP
==============================
Public Class Form1
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Dim P1 As New System.Diagnostics.Process
P1.StartInfo.UseShellExecute = False
P1.StartInfo.RedirectStandardOutput = True
P1.StartInfo.FileName = "cmd.exe"
P1.Start()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("CD c:\{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("DIR{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
コマンドプロンプトを終了せずにリダイレクトするには？
VBからコマンドプロンプトを操作し、結果をLabelに貼り付けることを考えています。
しかし、コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまい、その後のコマンド入力でプロセスが見つからずエラーとなってしまいます。コマンドプロンプトは終了せずにリダイレクトの設定する方法を教えて頂けないでしょうか。
また、コマンドプロンプト自体は表示させずに実行できるのが理想なので、やり方のヒントだけでも頂けると助かります。
操作例(VBのボタンから)：cmd.exe起動 → cd c:\ → dir
エラー内容：プロセス 'c:\windows\system32\cmd.exe' が見つかりませんでした。
動作環境：VB2005、Windows XP
==============================
Public Class Form1
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Dim P1 As New System.Diagnostics.Process
P1.StartInfo.UseShellExecute = False
P1.StartInfo.RedirectStandardOutput = True
P1.StartInfo.FileName = "cmd.exe"
P1.Start()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("CD c:\{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("DIR{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
コマンドプロンプトを終了せずにリダイレクトするには？
VBからコマンドプロンプトを操作し、結果をLabelに貼り付けることを考えています。
しかし、コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまい、その後のコマンド入力でプロセスが見つからずエラーとなってしまいます。コマンドプロンプトは終了せずにリダイレクトの設定する方法を教えて頂けないでしょうか。
また、コマンドプロンプト自体は表示させずに実行できるのが理想なので、やり方のヒントだけでも頂けると助かります。
操作例(VBのボタンから)：cmd.exe起動 → cd c:\ → dir
エラー内容：プロセス 'c:\windows\system32\cmd.exe' が見つかりませんでした。
動作環境：VB2005、Windows XP
==============================
Public Class Form1
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Dim P1 As New System.Diagnostics.Process
P1.StartInfo.UseShellExecute = False
P1.StartInfo.RedirectStandardOutput = True
P1.StartInfo.FileName = "cmd.exe"
P1.Start()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("CD c:\{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("DIR{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
コマンドプロンプトを終了せずにリダイレクトするには？
VBからコマンドプロンプトを操作し、結果をLabelに貼り付けることを考えています。
しかし、コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまい、その後のコマンド入力でプロセスが見つからずエラーとなってしまいます。コマンドプロンプトは終了せずにリダイレクトの設定する方法を教えて頂けないでしょうか。
また、コマンドプロンプト自体は表示させずに実行できるのが理想なので、やり方のヒントだけでも頂けると助かります。
操作例(VBのボタンから)：cmd.exe起動 → cd c:\ → dir
エラー内容：プロセス 'c:\windows\system32\cmd.exe' が見つかりませんでした。
動作環境：VB2005、Windows XP
==============================
Public Class Form1
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Dim P1 As New System.Diagnostics.Process
P1.StartInfo.UseShellExecute = False
P1.StartInfo.RedirectStandardOutput = True
P1.StartInfo.FileName = "cmd.exe"
P1.Start()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("CD c:\{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("DIR{Enter}")
Label5.Text = P1.StandardOutput.ReadToEnd()
End Sub
行挿入+貼付けと空白行削除を同時に行うには？
VBA初心者です。
仕事でエクセルを使っていますが、
no 工程1 工程2 工程3
1 A B C
2 B _ A
3 C A _
4 _ C A
という表を
no 工程
1 A
B
C
2 B
A
3 C
A
4 C
というように並び替えたいのですが、
現在は各番号ごとに3行挿入して工程をコピー、行と列を入れ替えて貼付けをしています。
これだと
no 工程
1 A
B
C
2 B
A
3 C
A
4
C
A
のように空白行ができてしまいます。これをもう一度、マクロで消しているのですが、
データ量が多いため、行挿入と空白行を消す作業を同時に行わないとシート最大行数である
65536行を超えてしまう可能性があります。
同時にやるにはどのようにすればよいのでしょうか？
よろしくおねがいします。
