SHARE
TWEET

Untitled

a guest Apr 10th, 2019 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Importa_ConsignmentStockDocuments()
  2.  
  3.     Dim conString As String
  4.     Dim ws As Worksheet
  5.    
  6.     Set ws = ThisWorkbook.ActiveSheet
  7.  
  8.     conString = OdbcConnectionString(G_SERVER_NAME, G_DATABASE_NAME, "", "")
  9.    
  10.     Dim query As String, p1 As String, p2 As String
  11.    
  12.     query = "SELECT * FROM vw_Check_ConsignmentStock"
  13.    
  14.     Dim destinationRange As Range
  15.     Set destinationRange = ws.Range("A4")
  16.    
  17.     'pulisce l'area prima dell'importazione
  18.  
  19.     ws.Range("A4", "Y1000000").Clear
  20.    
  21.     ImportSQLtoRange conString, query, destinationRange
  22.  
  23. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top