コピーした番号をExcelなしで埋め込む

Question

私は検索していて、私の問題の答えを見つけることができません。私のVBAスキルは非常に悪いです。だから私は自分の仕事で内部システムとVBAを使用しているので、Excelを使用していません。私は次のマクロを使用しています：

' Common variable declarations 
    Dim ibmCurrentTerminal As IbmTerminal 
    Dim ibmCurrentScreen As IbmScreen 
    Dim hiddenTextEntry As String 
    Dim returnValue As Integer 
    Dim timeout As Integer 
    timeout = 15000 

    Set ibmCurrentTerminal = ThisFrame.SelectedView.control 
    Set ibmCurrentScreen = ibmCurrentTerminal.Screen 
    '--------------------------------------------------------------------- 


    ibmCurrentScreen.SendControlKey (ControlKeyCode_F12) 
    ibmCurrentScreen.SendKeys ("224") 
    ibmCurrentScreen.SendControlKey (ControlKeyCode_Transmit) 
    ibmCurrentScreen.SendControlKey (ControlKeyCode_Erase_Eof) 
    ibmCurrentScreen.Paste 
    ibmCurrentScreen.SendControlKey (ControlKeyCode_Transmit) 

私は1つのプログラムから数値をコピーし、このマクロを使って別のプログラムでこれをチェックしたいと思います。問題は、コピーされた番号が7文字でなければならないということです。貼り付けたときに "1234567"と表示されますが、コピーする数字は5文字です。 "12345"。

私がしたいことは、マクロが他のプログラムに貼り付ける前に "00"を追加することです。数字が7文字未満の場合は "0"となります。これは、細胞内の情報を保持するためにExcelを使用しないため、マクロで行う必要があることを忘れないでください。

私の質問は、マクロにこれをプログラムする方法で、重要な部分は、あなたが以下のようにFormat()機能を使用してこれを行うことができるはず

ibmCurrentScreen.Paste 
    ibmCurrentScreen.SendControlKey (ControlKeyCode_Transmit) 

おかげ

Answer 1

です：

ibmCurrentScreen.SendControlKey (Format(ControlKeyCode_Transmit, "0000000")) 

Answer 2

この解決策は私の問題を解決しました。クリップボードから情報を取得する必要があります。注：このソリューションではExcelを何ら使用していないため、少し難しかったです。

' retrieve the value from the clipboard 
Dim textFromClipboard As String 
Dim objData As New MSForms.DataObject 
objData.GetFromClipboard 
textFromClipboard = objData.GetText() 

' Format the value to have leading zeros 
Dim formattedText As String 
formattedText = Format(textFromClipboard, "0000000") 


' Enter the formatted text to the terminal and hit enter 
ibmCurrentScreen.SendKeys (formattedText) 
ibmCurrentScreen.SendControlKey (ControlKeyCode_Transmit) 

End Sub