No.2ベストアンサー
- 回答日時:
一例を示します。
実行途中にインプットボックスがでますので20~40位
の数値を入れてください。
Private Sub Command1_Click()
'------エクセル設定-----
Dim Apl As Variant 'エクセルアプリケーションの定義
Dim Book As Variant 'ブックの定義
Dim Sheet As Variant 'シートの定義
Dim k As Integer
'各セルの値を取得
Dim Fpath As String
Dim i As Long
Dim j As Long
'------エクセルファイルを開く&表示-------
Fpath = App.Path & "\Sample1.xls"
Set Apl = CreateObject("Excel.Application")
Apl.Application.Visible = True
Set Book = Apl.Workbooks.Open(Fpath) 'エクセルファイルのopen
Set Sheet = Book.Worksheets(1)
'------MySQL 設定-----
Dim cn As Variant
Dim sql As String
'** MySQL ODBC 接続
On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
cn.Open "dsn=MySQL;uid=sunohara;pwd=2510"
cn.CursorLocation = 3
'** テーブル作成
k = InputBox("1つ当たりのデータの長さを入力してください。")
sql = "create table test3 ("
For j = 1 To 255
If Sheet.Cells(1, j + 1).Value = "" Then Exit For
sql = sql & "a" & CStr(j) & " char(" & k & "),"
Next
sql = sql & "a" & CStr(j) & " char(" & k & ")"
sql = sql & ")"
cn.Execute sql
sql = ""
'** インサート
For i = 1 To 65536
If Sheet.Cells(i, 1).Value = "" Then Exit For
sql = "insert into test3 values ("
For j = 1 To 255
If Sheet.Cells(i, j + 1).Value = "" Then Exit For
sql = sql & "'" & CStr(Sheet.Cells(i, j).Value) & "'" & ","
Next
sql = sql & "'" & CStr(Sheet.Cells(i, j).Value) & "'"
sql = sql & ")"
cn.Execute sql
Next
'** レコードセットクローズ
Apl.Application.Visible = False
cn.Close
Apl = Nothing
Book = Nothing
Sheet = Nothing
'-----
MsgBox "終了"
End Sub
参考URL:http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd …
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- MySQL mysqlがインストールされているのかどうか 1 2023/06/05 14:19
- MySQL mysqlがインストールされているのかわかりません 1 2023/06/05 02:26
- フリーソフト 色々な形式の個人情報を後で参照しやすいようWindow10で管理したいのですが、どんな方法があるの? 1 2023/04/29 16:46
- PHP ログイン機の付きの掲示板サイトを作りたいです。 2 2022/10/09 04:33
- PostgreSQL PostgressからMySQL(MariaDB)へ構造を変更する際のTimestamp等について 2 2023/04/04 12:09
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
- その他(データベース) 業務用のデータベースサーバーの選び方について 4 2022/11/22 10:22
- MySQL MySQLでcreateが使えない MySQLを使ってデータベースを作ろうと思い、CREATE を使 3 2022/06/19 15:32
- MySQL 【投稿情報用データベース posts】は必要ないと思います。 1 2022/06/02 21:25
- JavaScript Typescript が必要な理由 1 2023/01/07 11:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
<VB.NET>INSERT文でDBにデータ...
-
JAVA SQLServerException 列名 ...
-
データベースに存在するデータ...
-
エクセルVBAのデータベース接続...
-
VBA ACCESS SQL...
-
Q&Aサイトを作成していてURLの...
-
mysqlの命令文をPDOに書き換...
-
INSERT,DELETEを同時に
-
like検索の複数キーワードで、...
-
何種類かのチェックボックスグ...
-
php テーブルを作れない
-
実行時エラー3131 FROM 句の構...
-
チェックボックスによる複数の...
-
テキストボックスに入れた内容...
-
エクセルVBAについて
-
PHP + MySQLを使用して詳細画面...
-
VBAをつかってクエリの情報を抽...
-
PHP と MySQL でテーブルの行数...
-
CSVをダウンロードさせた際、CS...
-
エラー3011
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JAVA SQLServerException 列名 ...
-
Q&Aサイトを作成していてURLの...
-
<VB.NET>INSERT文でDBにデータ...
-
insert1つの処理でもトランザ...
-
Pro*Cの構文エラー
-
ResultSetインターフェイスでの...
-
データベースに存在するデータ...
-
PHP&MySQLでの文字列+数列の一...
-
VBA ACCESS SQL...
-
phpで複数の検索語を検索対象に...
-
MySQLのINSERT時にたまに重複に...
-
PHP+PDO+MYSQL で実行されたSQ...
-
C# で発生したException.Messag...
-
like検索の複数キーワードで、...
-
INSERT,DELETEを同時に
-
PHPのUndefined index や varia...
-
VB.NET エラーになる箇...
-
php postgres Insert と updat...
-
配列をループさせてUPDATE
-
C#でDBの特定列をUpdate
おすすめ情報