回答編集履歴
3
こちらかがいいかも
test
CHANGED
|
@@ -74,7 +74,7 @@
|
|
|
74
74
|
|
|
75
75
|
’sqlserever接続関数
|
|
76
76
|
|
|
77
|
-
Sub get_sqlserver(D
|
|
77
|
+
Sub get_sqlserver(DatabaseName As String, strSQL As String)
|
|
78
78
|
|
|
79
79
|
|
|
80
80
|
|
|
@@ -102,7 +102,7 @@
|
|
|
102
102
|
|
|
103
103
|
'DBSrv = "DBSERVER\SQLEXPRESS,49391" 'ポート指定付
|
|
104
104
|
|
|
105
|
-
DBName =
|
|
105
|
+
DBName = DatabaseName
|
|
106
106
|
|
|
107
107
|
|
|
108
108
|
|
2
こちらかがいいかも
test
CHANGED
|
@@ -5,6 +5,12 @@
|
|
|
5
5
|
結果を取り込みできます（データを取得するシート名はsqlserverという名前にしてます）。
|
|
6
6
|
|
|
7
7
|
|
|
8
|
+
|
|
9
|
+
DBSrv = "DESKTOP-VKLFBER\SQLEXPRESS"
|
|
10
|
+
|
|
11
|
+
DBName = "testdb"
|
|
12
|
+
|
|
13
|
+
の部分はご自身の環境に合わせて修正をお願いします。
|
|
8
14
|
|
|
9
15
|
|
|
10
16
|
|
1
こちらかがいいかも
test
CHANGED
|
@@ -1,4 +1,8 @@
|
|
|
1
1
|
excel vbaからのsqlserverの接続例を示します。
|
|
2
|
+
|
|
3
|
+
自作関数get_sqlserverに引数（database名、sql文）を渡すと
|
|
4
|
+
|
|
5
|
+
結果を取り込みできます（データを取得するシート名はsqlserverという名前にしてます）。
|
|
2
6
|
|
|
3
7
|
|
|
4
8
|
|