Run-time error '-2147467259 (80004005) ???

[Gulredy]

I have a code, which runs on a button hit.
When you hit the button, it adds a path paramterers to the variable mappa, and then from that it creates a new file.

After that I'm connecting to sql, then I want to export datas based on the values of the cells. The values of the cells is given to a variable, and I want to give the sql those variables values.
I don't know if this is correct but without these lines its gives the same error, so I can't even try them out!

So on the end it gives me an error like this.

Run-time error '-2147467259 (80004005)':
Automation error

What could it mean? And how can I fix it?


Sub INDITAS3(mappa As String)
'excel.txt megnyitása
Workbooks.OpenText Filename:= _
mappa & "\excel.txt", Origin:=1250, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True

'-----csatlakozás
Dim cn As ADODB.connection
Dim strConn As String
Dim strSQL As String
Dim strXLSource As String
'kapcsolódás
strConn = strConn & "Provider=SQLOLEDB;Data Source=;"
strConn = strConn & "Initial Catolog=;Trusted_Connection=YES"
Set cn = New ADODB.connection
cn.Open "DRIVER={MySQL ODBC 5.1 Driver}" _
& ";SERVER=localhost" _
& ";DATABASE=test3" _
& ";UID=root" _
& ";PWD=root" _
& ";OPTION=16427"
strXLSource = "c:\david\NE_Arfolyam 2.xlsm;Extended Properties=Excel 12.0"
'---------

'excel.txt feldolgozása
Dim wb As Workbook
Set wb = Workbooks("excel.txt")
Dim ws As Worksheet
Set ws = wb.Sheets(1)

'ThisWorkbook.Activate 'az NE_Arfolyam excel fájl aktiválása

Dim datumido As String
datumido = ws.Range("A1").Value 'az A1 cella értékét átadjuk a datumido változónak

Dim nev, valutaneve As String
Dim i As Integer
Dim v_eladas, v_vetel As Integer
i = 2
Do While ws.Range("A" & i).Value <> "" '???addig amíg A i-edik értéke #
If ws.Range("A" & i).Value <> "***" Then 'hogyha a létrehozott excel file A oszlop +i-edik értékén *** van akkor befejezi
'1es if
If ws.Range("A" & i).Value = "#" Then 'hogyha a létrehozott excel file A oszlop +i-edik értékén # akkor megy tovább a kódban mert a fájlban # után valuták vannak
nev = ws.Range("B" & i).Value 'a megnyitott excel file B2-es mezőjében szereplő értéket a nev változónak adjuk
strSQL = "INSERT INTO arfolyam (irodanev)"
strSQL = strSQL & "VALUES ("" & nev & "")"
'1es else
Else
'konkurencia árfolyam megfelelő helyre írása
valutanev = ws.Range("A" & i).Value 'itt megkapjuk a valuta nevét
strSQL = "INSERT INTO arfolyam (valutanev)"
strSQL = strSQL & "VALUES ("" & valutaneve & "")"

v_eladas = ws.Range("B" & i).Value
strSQL = "INSERT INTO arfolyam (eladas)"
strSQL = strSQL & "VALUES ("" & v_eladas & "")"

v_vetel = ws.Range("C" & i).Value
strSQL = "INSERT INTO arfolyam (vetel)"
strSQL = strSQL & "VALUES ("" & v_vetel & "")"
End If '1es else
End If '1es if
i = i + 1

Loop

Debug.Print strSQL
cn.Execute strSQL, adExecuteNoRecords <-- IT GIVES THE ERROR HERE


End Sub

 

[ravikaswan]

Hi,
I am also facing same problem all detail mention below:-
ERROR SHOWN - Run-time error '-2147467259 (80004005) not able to open file

IF ANY SUGGESTION PLEASE SUGGEST ME
Option Explicit
Public rm As VisaComLib.ResourceManager
Public inst As VisaComLib.FormattedIO488
Public esa As ESAEZ
Public gpib As IGpib

Sub ckeckconnection()
Set rm = New VisaComLib.ResourceManager
Set inst = New VisaComLib.FormattedIO488
Set inst.IO = rm.Open("GPIB0::18")
Dim idn As String

inst.WriteString "*IDN?"
idn = inst.ReadString()
MsgBox "Connected Instrument is: " & idn, vbOKOnly, "IDN Result"
End Sub

Sub connectesa()
Set rm = New VisaComLib.ResourceManager
Set inst = New VisaComLib.FormattedIO488
Set inst.IO = rm.Open("GPIB0::18")
End Sub

Sub esascreen()
Set esa = New ESAEZ
esa.Connect ("GPIB0::18::INSTR")
esa.GetScreenImage
esa.SaveScreenImage "d:\SES_ACM_Plots\picture.gif", Agt_ImageFormat_GIF <-- IT GIVES THE ERROR HERE
End Sub

Sub InsertPicture(PictureFileName As String, TargetCells As Range)
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
With TargetCells
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing
End Sub

Sub disconnectesa()
Set rm = New VisaComLib.ResourceManager
Set gpib = rm.Open("GPIB0::18")
gpib.ControlREN (GPIB_REN_GTL)
gpib.Close
End Sub

Sub S7ALLIF()
Call S7IF11
Call S7IF13
Call S7IF15
Call S7IF12
Call S7IF14
Call S7IF16
Call S7IF21
Call S7IF23
Call S7IF25
Call S7IF22
Call S7IF24
Call S7IF26
End Sub

Sub S7IF11()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF11.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B2")
Call disconnectesa
End Sub

Sub S7IF13()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF13.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B4")
Call disconnectesa
End Sub

Sub S7IF15()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF15.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B6")
Call disconnectesa
End Sub

Sub S7IF12()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF12.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B8")
Call disconnectesa
End Sub

Sub S7IF14()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF14.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B10")
Call disconnectesa
End Sub

Sub S7IF16()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF16.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B12")
Call disconnectesa
End Sub

Sub S7IF21()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF21.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B14")
Call disconnectesa
End Sub

Sub S7IF23()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF23.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B16")
Call disconnectesa
End Sub

Sub S7IF25()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF25.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B18")
Call disconnectesa
End Sub

Sub S7IF22()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF22.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B20")
Call disconnectesa
End Sub

Sub S7IF24()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF24.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B22")
Call disconnectesa
End Sub

Sub S7IF26()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF26.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B24")
Call disconnectesa
End Sub

Sub S7ALLKPA()
Call S7KPA11
Call S7KPA13
Call S7KPA15
Call S7KPA12
Call S7KPA14
Call S7KPA16
Call S7KPA21
Call S7KPA23
Call S7KPA25
Call S7KPA22
Call S7KPA24
Call S7KPA26
End Sub

Sub S7KPA11()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA11.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D2")
Call disconnectesa
End Sub

Sub S7KPA13()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA13.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D4")
Call disconnectesa
End Sub

Sub S7KPA15()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA15.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D6")
Call disconnectesa
End Sub

Sub S7KPA12()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA12.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D8")
Call disconnectesa
End Sub

Sub S7KPA14()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA14.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D10")
Call disconnectesa
End Sub

Sub S7KPA16()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA16.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D12")
Call disconnectesa
End Sub

Sub S7KPA21()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA21.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D14")
Call disconnectesa
End Sub

Sub S7KPA23()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA23.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D16")
Call disconnectesa
End Sub

Sub S7KPA25()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA25.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D18")
Call disconnectesa
End Sub

Sub S7KPA22()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA22.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D20")
Call disconnectesa
End Sub

Sub S7KPA24()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA24.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D22")
Call disconnectesa
End Sub

Sub S7KPA26()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA26.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D24")
Call disconnectesa
End Sub

Sub S7ALLTXH()
Call S7TX11
Call S7TX13
Call S7TX15
Call S7TX12
Call S7TX14
Call S7TX16
Call S7TXALLH
End Sub

Sub S7ALLTXV()
Call S7TX21
Call S7TX23
Call S7TX25
Call S7TX22
Call S7TX24
Call S7TXALLV
End Sub

Sub S7TX11()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX11.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F2")
Call disconnectesa
End Sub

Sub S7TX13()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX13.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F4")
Call disconnectesa
End Sub

Sub S7TX15()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX15.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F6")
Call disconnectesa
End Sub

Sub S7TX12()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX12.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F8")
Call disconnectesa
End Sub

Sub S7TX14()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX14.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F10")
Call disconnectesa
End Sub

Sub S7TX16()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX16.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F12")
Call disconnectesa
End Sub

Sub S7TX21()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX21.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F14")
Call disconnectesa
End Sub

Sub S7TX23()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX23.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F16")
Call disconnectesa
End Sub

Sub S7TX25()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX25.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F18")
Call disconnectesa
End Sub

Sub S7TX22()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX22.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F20")
Call disconnectesa
End Sub

Sub S7TX24()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX24.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F22")
Call disconnectesa
End Sub

Sub S7TX26()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX26.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F24")
Call disconnectesa
End Sub

Sub S7TXALLH()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TXALLH.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B26")
Call disconnectesa
End Sub

Sub S7TXALLV()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TXALLV.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D26")
Call disconnectesa
End Sub

Sub S7ALLRXV()
Call S7RX11
Call S7RX13
Call S7RX15
Call S7RX12
Call S7RX14
Call S7RX16
Call S7RXALLV
End Sub

Sub S7ALLRXH()
Call S7RX21
Call S7RX23
Call S7RX25
Call S7RX22
Call S7RX24
Call S7RXALLH
End Sub

Sub S7RX11()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX11.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H2")
Call disconnectesa
End Sub

Sub S7RX13()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX13.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H4")
Call disconnectesa
End Sub

Sub S7RX15()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX15.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H6")
Call disconnectesa
End Sub

Sub S7RX12()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX12.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H8")
Call disconnectesa
End Sub

Sub S7RX14()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX14.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H10")
Call disconnectesa
End Sub

Sub S7RX16()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX16.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H12")
Call disconnectesa
End Sub

Sub S7RX21()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX21.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H14")
Call disconnectesa
End Sub

Sub S7RX23()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX23.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H16")
Call disconnectesa
End Sub

Sub S7RX25()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX25.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H18")
Call disconnectesa
End Sub

Sub S7RX22()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX22.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H20")
Call disconnectesa
End Sub

Sub S7RX24()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX24.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H22")
Call disconnectesa
End Sub

Sub S7RX26()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX26.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H24")
Call disconnectesa
End Sub

Sub S7RXALLH()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RXALLH.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H26")
Call disconnectesa
End Sub

Sub S7RXALLV()
Call connectesa
inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RXALLV.trc'", True
inst.WriteString ":TRAC2:MODE WRIT", True
Application.Wait (Now() + TimeValue("00:00:05"))
Call esascreen
InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F26")
Call disconnectesa
End Sub