• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：指定したExcelをSQLテーブルに呼び込むには）

指定したExcelをSQLテーブルに呼び込む方法

NoMusicNoLife49の回答

回答No.6

こんにちは、 テーブルtestのカラム No 氏名 国語 数学 英語 合計点 のそれぞれのデータ型を教えてください。

10071007
質問者

お礼

NoMusicNoLife49　さん続いてありがとうございます。 SQLのデータ型は次の通りです。 No INT 氏名 nvarchar(8) 国語 INT 数学 INT 英語 INT 合計点 INT です。 よろしくお願いいたします。

この回答がついた質問に戻る
回答 全件
ベストアンサー
>これで何とか書き込めました。 なんとかできて安心しました(汗) …
こんにちは。 前回のソースの >Fill(DT) >End With…
> 'エクセルファイルのデータをメモリーテーブルに読込む >.Fill…
なるほど。 >VB.netのModule1.vbに貼り付けました。 …
こんにちは。 下記のように書けば、PCに保存したエクセルファイルを読込…
手元にDelphiのものしかなかったので.... StrProvid…
ExcelのデータはADOで普通に"TABLE"と同様に扱えます。 な…
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • アクセス2000→エクセル2010へエクスポート

    Private Sub cmd出力ボタン_Click() DoCmd.SetWarnings False DoCmd.TransferSpreadsheet acExport, 8, "出力クエリ", "C:データ.xlsx", True, "" DoCmd.SetWarnings True End Sub 実行すると 外部テーブルのフォーマットが正しくありません と出てしまいます。 エクセル97の形式にエクスポートする際は大丈夫でした。 spreadsheettypeの引数が違うのかとは思いますが適切な数値がわかりません。 他のやり方等もあれば教えて下さい。

  • access一部のフィールドを他のテーブルへVBA

    先日 https://okwave.jp/qa/q10245651.html において > table2の新しいデータとして > table1のデータをコピーしたい、 単に追加で ということであれば、という　御回答： Sub Test() Dim StrSQL As String StrSQL = "INSERT INTO table2 SELECT table1.* FROM table1;" DoCmd.SetWarnings False DoCmd.RunSQL StrSQL DoCmd.SetWarnings True End Sub ---------------------- 上記の 回答をいただき　うまく稼働しました 部分的にフィールドを別テーブルに 移動するとき ここでは table1のフィールド名　IDに table2のフィールド名　ｂに　入っている数値 にい　1を加えた数値を 移動したいのですが Public Function Test() Dim tb1 As Table Dim tb2 As Table tb1 = table1 tb2 = table2 Dim strSQL As String strSQL = "INSERT INTO table2![ID]SELECT"（"[b]"FROM tablel）+1" （table1のフィールド[b]の数値に1を加えた数値を table2のフィールド[ID]に移行する、というつもりです） DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Function 稼働しません すみません 宜しくお願い致します （ついでながら ここで　でてくるb というのは テーブル　table3 の　IDの総和 すなわち SELECT Count(table3.ID) AS b FROM table3; 要は　table3の最後のレコードの次のレコードの 番号の数値を table2のIDに移動したい　というわけであります） （いずれのIDや　ｂについても　数値型　長整数型　重複あり　です）

  • EXCELファイルからACCESSへインポート

    質問させていただきます。 ACCESSのフォームから、EXCELファイルを選択してEXCELの内容を、 テーブルにインポートさせたいのですが。以下の方法で行って いるのですが、テーブルに反映されません。 Private Sub cmd_Import_Click() Dim InitialFileName As String Dim varTitle As Variant Dim FileName As String InitialFileName = "hoge.xls" varTitle = "ファイルを開く" FileName = GETHOGEOPEN(varTitle, InitialFileName) DoCmd.SetWarnings False DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_HOGE", FileName, True DoCmd.SetWarnings True MsgBox "完了しました" End Sub ACCESS　→　ACCESS2003 SP3 EXCEL →EXCEL2003 SP3 よく見ると、すでにEXCELのバージョン指定が違う（汗） これが原因かも・・・・（汗） わかる方がいらっしゃったら教えてください。

  • アクセス2007　テーブルの全削除とデータ移動

    アクセス2007　テーブルの全削除とデータ移動 全テーブルを削除して、データをインポートしようとしています。 質問1. 下記のコードで、リレーションの張ってあるテーブルの削除でエラーになります。 でも、DoCmd.SetWarnings Falseの状態で、手動で削除するとエラーになりません。 だったらと思い、コードにDoCmd.SetWarnings Falseを追加したのですが、やはりエラーになります。 対処法はないでしょうか？ 質問2. テーブルの中に「~TMP******」という勝手に作られたテーブルは、削除してもいいものなのでしょうか？ 質問3. 削除後にインポートをしたいのですが。 手動でアクセスメニュー＞外部データ＞アクセス（のインポート）＞現在の～～＞すべて選択（テーブル）＞ＯＫ これを実現するＶＢの記述は、どんなコードになるのでしょうか？ --------------------------------------------------------------------- Private Sub 旧バージョンからデータ移動_Click() Dim i As Integer Dim tbls As DAO.TableDefs Dim tbl As DAO.TableDef '開いているフォーム全てを閉じる For i = Forms.Count - 1 To 0 Step -1 DoCmd.Close acForm, Forms(i).Name Next i Set tbls = CurrentDb.TableDefs DoCmd.SetWarnings False　 '追加-------------------　 　　’全テーブル削除 For Each tbl In tbls If InStr(1, tbl.Name, "MSys", vbBinaryCompare) = 0 And InStr(1, tbl.Name, "~TMP", vbBinaryCompare) = 0 Then tbls.Delete (tbl.Name) End If Next DoCmd.SetWarnings True　　　'追加---------------- 　　’旧バージョンからのデータインポート 　　’ＶＢコードがわかりません End Sub ------------------------------------------------------------------------- ※旧バージョンとはアクセス本体ではなく、自分でつくったＤＢの旧バージョンです。 複数質問で申し訳ありませんが、よろしくお願い致します。

  • Accessクエリ実行時のメッセージ表示について

    クエリ実行時にメッセージが表示されるのが面倒なので以下のようにしました DoCmd.SetWarnings False クエリ実行 DoCmd.SetWarnings True こうするとメッセージが表示されなくなりますが、他の箇所 (テーブルを開いてデータを削除とか、フォームの削除とか) でもメッセージが出なくなってしまいます。 他のところではメッセージが出るようにしたいのですが… また、一度mdbを閉じて開きなおすと、ちゃんと出ます

  • sqlについて

    SQLについて質問です。 VBからMDBにSQLでデータの参照をしたいのですが ("select * from abc where No = " & No & " ;") テーブル内の数ある項目の中で一つだけまたは複数除いて参照する場合のSQL文を教えてください。 項目が60個ほどありますので一つ一つ指定していくとすごく長いSQLになってしまいそうですのでお知恵をお貸しください＞＜

  • VBA内でSQL（UPDATEをループ処理）したいのですが

    アクセスを使って UPDATE 在庫計画 SET 在庫計画.2 =[1]-[2]; 在庫計画・・・テーブル名 1・・・フィールド名　　・・・1の在庫数 2・・・フィールド名　　・・・2の払出し数 上記のＳＱＬで　2の払出し数を在庫数に更新して 在庫予測をします。 テーブルには、3,4,5・・・30,31のフィールド（払出し数）があります。 UPDATE 在庫計画 SET 在庫計画.3 =[2]-[3]; のように更新クエリを次々作って3,4,5・・・の在庫予測数に 更新して行くのは大変なので VBA内でSQLを実行する方法を教えてください。 FOR NEXT を用いてループを組んでいけば良いのでしょうが VBAの知識が無く困っています。

  • oracle（SQL）のHINT指定について

    性能問題について対応しています。 約２０００万件のマスタと付随する各テーブルを結合して、検索条件に一致するデータを抽出するSQLを開発していますが、これらのパターン（曖昧検索：前方一致）において、前述の２０００万件のマスタが駆動表となり、且つフルスキャンが走るものがあり、改善策を検討しています。 つきましては、HINT指定で駆動表を強制的に各テーブルに変更する方法（SQLのHINT指定内容）についてお教え願います。 　→曖昧検索条件にもっとも絞られる対象のテーブルを駆動表とし、マスタテーブルはその駆動表とプライマリーキーで結合した形でアクセス（フルスキャンを避ける）ような実行計画となるSQLに改善をしようとしています。 以上です。　

  • SendKeyで解決できないでしょうか？

    こんにちは。どうぞ、よろしくお願いします。 テーブル作成のクエリに関することです。 コマンドボタンのクリック時のイベントに テーブル作成クエリを指定しています。 其の場合、以下のような確認のダイアログボックスが出ますが、 これを出ないように、出来ないものでしょうか？ （2つのダイアログボックス共に、"Y"を押下します。） 　　テーブル作成クエリを実行すると、 　　新しくテーブルが作成されます。 　　**** 件のレコードが新規テーブルにコピーされます。 -------------- クリック時のイベントに付いてですが、 SendKeyを使ってみましたが、上手く行きませんでした。 SendKeyはアクティブウィンドウについて作用するとのことなので、 フォームを閉じて…、などを考えて、次のような感じでやりました。 DoCmd.Close acForm, "フォーム名" DoCmd.DeleteObject acTable, "テーブル名" DoCmd.OpenQuery "作成クエリ", acNormal, acEdit SendKeys "y", True SendKeys "y", True DoCmd.OpenForm "フォーム名" DoCmd.DeleteObjectは、 テーブルを削除していないと上書きするかどうかを聞いてくるので、 削除しておこうと思い書きました。SendKeyでは、可能に出来ないのでしょうか？ DoCmd.SetWarnings False　も少し試しましたが、違うようですし。 それとも、簡単には解決できないようなことでしょうか。どうぞ、お願いします。

  • アクセスVBAのSQLについて

    (1)テキストファイルに記述したSQL文のセットをVBAで実行するコマンドはありますか？ (2)テーブルを作成する際の、DB指定は 「create table "DB名"."テーブル名"…」としたらよいでしょうか (3)"DB名". を省略できるのはどのような場合ですか？ (4)Docmd.RunSQL "" で一度に複数のSQL文を実行できますか？ よろしくお願いします。m(_ _)m

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する