send keys error

[residnt]

Hello all,

I'm having a bit of a problem using the sendkeys command. It is adding the keystrokes into the macor and not the focused window.

Here is what I am running just for the tests.


Call Shell("cmd.exe", vbNormalFocus)
SendKeys "cd d:\~"

Thanks
residnt

 

[Norie]

Well you could use something like this.

Sub TextToB1()
Dim FF
Dim L As String

    FF = FreeFile()

    Open "C:\test.txt" For Input As #FF
        While Not EOF(FF)
            Line Input #FF, L
            Range("B1").Value = Range("B1").Value & L
        Wend
    Close #FF
End Sub

 

[residnt]

Ok I've tried that and all that gets entered into cell b1 is

1.26956007423338E+162651

where the text doc looks like this
1
2
3
4
5

so i want cell b1 to = 1, b2 = 2 , ect.

Thanks
Jason

 

[Norie]

Jason

Format the cell as Text before you run the code, Excel is interpreting the concatenated string as a number.

To do the format in code use this.

Range("B1").NumberFormat = "@"

 

[residnt]

ok so this is what I have

Sub TextToB1()
Dim FF
Dim L As String

FF = FreeFile()
Range("B1").NumberFormat = "@"
Open "C:\buildbat\devtrack_output.txt" For Input As #FF
While Not EOF(FF)
Line Input #FF, L
Range("B1").Value = Range("B1").Value & L
Wend
Close #FF
End Sub

now i get the same numbers with out the +

 

[Norie]

Jason

Couldn't you just import the text file using Data>Get External Data...Import Text File...?

If you need code then record a macro when you do it manually.

Sub TextToB()
Dim FF
Dim L As String
Dim I As Long

    FF = FreeFile()
    Open "C:\buildbat\devtrack_output.txt" For Input As #FF
        While Not EOF(FF)
            Line Input #FF, L
            Range("B1").Offset(I).Value = L
            I = I + 1
        Wend
    Close #FF
End Sub