JRA公式競馬データ配信サービス JRA-VAN Data Lab.

JRA-VAN DataLab.

競馬ソフト開発コーナー

プログラミング質問広場

本掲示板は、プログラミングに関する情報を作者様同士で共有・議論していただく場として用意いたしました。
JV-Link、JV-Dataに直接関連しない(一般論としてのプログラミング方法やAPI・メソッドの利用法などの)スレッドはこちらに立ててください。

一括表示 リストに戻る
タイトルJVRSSでExcelのセルを明示的に更新
記事No14
投稿日: 2007/10/04(Thu) 21:24
投稿者JRA-VANソフトサポート
JRA-VANソフトサポートです。

JV-Link 質問箱 No.2747に関連するサンプルソースです。

【JVRSSのExcelのセルの値を明示的に更新】
ActiveWorkbook.UpdateLinkメソッドを利用して、アクティブシート内のすべて
のリンクソースについてJVRSSのデータベースの値に更新します。
※実行にはJRA-VAN JVRSSのインストールが必要です。

【ソース】

Sub sample()
Dim aLinks As Variant
Dim i As Integer

'シート内のすべてのリンクソースを取得
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)

If Not IsEmpty(aLinks) Then
'画面更新を無効化
Application.ScreenUpdating = False
For i = 1 To UBound(aLinks)
'リンクソースの値を更新
ActiveWorkbook.UpdateLink Name:=aLinks(i), Type:=xlOLELinks
Next i
'画面更新を有効化
Application.ScreenUpdating = True
End If

End Sub

タイトルRe: JVRSSでExcelのセルを明示的に更新
記事No123
投稿日: 2009/06/04(Thu) 15:31
投稿者INO
JVRSSのことで、新たにご質問なのですが、
お許し下さい。

JVRSSは、エクセルのセルに 
=JVRSS|'0011112'!RA競走条件 など入力して
データをよ呼び出すようになっていますが、
これを、VBAで呼び出すやり方はないのでしょうか?

たくさんセルに入力すると、更新が重くなってしまうので、
情報を更新したいときのみ、ボタンなどを押すと、
VBAでデーターベースから引っ張ってセルに入力できないか
考えています。

ウィンドウを閉じる