title: QueryTables.Add Method (Excel)
body: <p>strFile = Application.GetOpenFilename
      'Workbooks.Open strFile</p>
  
  <pre><code>With ActiveSheet.QueryTables.Add( _
      Connection:="strFile", _
      Destination:=Range("$A$1"))
  </code></pre>
  
  <p>'I have tried with :
      With ActiveSheet.QueryTables.Add( _
          Connection:="TEXT;strFile", _
          Destination:=Range("$A$1"))</p>
  
  <p>This is throwing up an error saying "Run-time error '1004';
  So you have any clue why it is showing me error ??</p>