SQL deyimlerini excel sayfasındaki adlandırılmış bir aralıkta nasıl çalıştırabilirim?

Question

Tüm yapmaya çalıştığım bir excel sayfası (yani adlandırılmış aralığı, hatta A1: F100) standart bir aralıkta almak ve üzerinde bazı sql sorguları çalıştırmak ve VBA içinde adım olabilir bir recordset dönmek Aynı çalışma kitabında kod yazabilir veya başka bir sayfaya yapıştırabilirsiniz.

ADODB'yi kullanmak bir düşüncedir, ancak geçerli çalışma kitabındaki bazı noktalara işaret etmek için bağlantıları nasıl ayarlayabilirim?

Microsoft sorgu sihirbazını kullanmadan önce, ideal olmayan, ancak işe yarayacağını biliyorum. Bunu, sayfanın içindeki bir aralığa, sadece diğer excel dosyalarına başvurmak için göremiyorum.

---

Burada bıraktığım işlev var. Birkaç kez çalıştırdığımda, excel kaynakların her zamanki hata iletisi ile çöküyor. Bu işlevi e-tablomdan kaldırdım ve her şey kesintisiz olarak birkaç kez çalışır, dolayısıyla kesinlikle buradaki koddan kaynaklanır.

Tüm nesneleri temizledim (doğru mu?). Kimsenin neyin yanlış gidebileceği konusunda bir fikri var mı? Bağlantı dizesinde tweaked olabilecek bir şey olabilir veya GetRows yönteminden döndürülen varyantla ilgili bir şey olabilir mi?

MS ADO 2.8 kullanıyorum ve 2.5 aynı davranışı denedim. Hepiniz bulacaksınız

Function getTimeBuckets() As Collection 

Dim strFile As String 
Dim strCon As String 
Dim strSQL As String 
Dim dateRows As Variant 
Dim i As Integer 
Dim today As Date 

Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 
Set getTimeBuckets = New Collection 

strFile = ThisWorkbook.FullName 
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _ 
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" 
cn.Open strCon 

strSQL = "SELECT DISTINCT(Expiration) FROM [PositionSummaryTable] where [Instrument Type] = 'LSTOPT'" 

rs.Open strSQL, cn 


dateRows = rs.GetRows 
rs.Close 

'today = Date 
today = "6-may-2009" 

For i = 1 To UBound(dateRows, 2) 
    If (dateRows(0, i) >= today) Then 
     getTimeBuckets.Add (dateRows(0, i)) 
    End If 
Next i 

Set dateRows = Nothing 
Set cn = Nothing 
Set rs = Nothing 
End Function 

Answer 1

Sadece ismi kullanabilirsiniz.Buna karşılık

Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 

strFile = Workbooks(1).FullName 
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _ 
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

cn.Open strCon 

''Pick one: 
strSQL = "SELECT * FROM DataTable" ''Named range 
strSQL = "SELECT * FROM [Sheet1$A1:E346]" ''Range 

rs.Open strSQL, cn 

Debug.Print rs.GetString 

size sql değiştirmek mümkün olmalıdır yüzden, yalnızca bugünün kayıtlarını istiyoruz fark part 2

soruya:

strSQL = "SELECT DISTINCT(Expiration) FROM [PositionSummaryTable] " _ 
& "where [Instrument Type] = 'LSTOPT' AND [Expiration]=#" _ 
& Format(Date(),"yyyy/mm/dd") & "#" 

Sen kapatmamışsanız bağlantı:

( )

Set rs=Nothing 
Set cn=Nothing 

Answer 2

Aşağıdaki gerekir:

İlk bağlantı, VB.NET içindir 2 bağlantılar - 6 VBA içindir.

One

Two

Three

Four

Five

Six

Tüm google'da bulundu, yaklaşık 2 - 4 dakika.

Answer 3

VBA bilmem ama kod

SELECT * FROM [SheetName$A1:B2] 

bunu denediniz biçimini kullanır Delphi ve C# çevrimiçi vardır?

Answer 4

Nasıl GİBİ maddenin kullanımı hakkında?

ben kullanmaya çalıştı:

select * from [PES$] where PID_TAG = 'PIT5400001' 

ama bu benim istediğim değil:

başarılı olamadı

select * from [PES$] where PID_TAG like '*5400001' 

....

bu çalışır. Eğer powershell kullanıyorsanız

DÜZENLEME

hummm .... biz ... , * kullanım%

Answer 5

kullanmayın çalışmak için joker değiştirmeniz gerekir, $ bir iç karakterdir . Bütün bu aynı bağlantıları bulundu

"Select * from [VM`$A3:F30]"