回答編集履歴
3
こちらかがいいかも
answer
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
```excel VBA
|
|
38
38
|
’sqlserever接続関数
|
|
39
|
-
Sub get_sqlserver(
|
|
39
|
+
Sub get_sqlserver(DatabaseName As String, strSQL As String)
|
|
40
40
|
|
|
41
41
|
On Error GoTo ErrorProc
|
|
42
42
|
|
|
@@ -50,7 +50,7 @@
|
|
|
50
50
|
'----------------------------------------------------
|
|
51
51
|
DBSrv = "DESKTOP-VKLFBER\SQLEXPRESS"
|
|
52
52
|
'DBSrv = "DBSERVER\SQLEXPRESS,49391" 'ポート指定付
|
|
53
|
-
DBName =
|
|
53
|
+
DBName = DatabaseName
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
'■Windows認証
|
2
こちらかがいいかも
answer
CHANGED
|
@@ -2,6 +2,9 @@
|
|
|
2
2
|
自作関数get_sqlserverに引数（database名、sql文）を渡すと
|
|
3
3
|
結果を取り込みできます（データを取得するシート名はsqlserverという名前にしてます）。
|
|
4
4
|
|
|
5
|
+
DBSrv = "DESKTOP-VKLFBER\SQLEXPRESS"
|
|
6
|
+
DBName = "testdb"
|
|
7
|
+
の部分はご自身の環境に合わせて修正をお願いします。
|
|
5
8
|
|
|
6
9
|
```excel VBA
|
|
7
10
|
|
1
こちらかがいいかも
answer
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
1
|
excel vbaからのsqlserverの接続例を示します。
|
|
2
|
+
自作関数get_sqlserverに引数（database名、sql文）を渡すと
|
|
3
|
+
結果を取り込みできます（データを取得するシート名はsqlserverという名前にしてます）。
|
|
2
4
|
|
|
3
5
|
|
|
4
6
|
```excel VBA
|