# VBAでのファイルのインポート **URL:** \ **Category:** kintone 開発相談\ **Created:** [2023 年 4 月 19 日午前 6:19 UTC](https://community.cybozu.dev/t/topic/1539 "2023-04-19T06:19:53Z")\ **Posts on this page:** 4\ **Page:** 1
**Author:** ![Legacy\_Account311](https://avatars.discourse-cdn.com/v4/letter/l/f07891/32.png) [@Legacy\_Account311](https://community.cybozu.dev/u/Legacy_Account311)\ **Post date:** [2023 年 4 月 19 日午前 6:19 UTC](https://community.cybozu.dev/t/topic/1539/1 "2023-04-19T06:19:53Z")
Sub ImportDataToKintone()     Dim xmlHttpRequest As New MSXML2.ServerXMLHTTP60     Dim url As String     Dim payload As String     Dim lastRow As Long     Dim i As Long     Dim deliveryDate As String     Dim destinationCode As String     Dim weight As String     Dim filePath As String     Dim wb As Workbook     Dim ws As Worksheet          ’ Set your kintone subdomain, API token and App ID     Const subDomain As String = “ドメイン”     Const apiToken As String = “トークン”     Const appId As String = “ＩＤ”          ’ Set kintone API URL     url = “https://” & subDomain & “.cybozu.com/k/v1/records.json”          ’ Open the file selection dialog     With Application.FileDialog(msoFileDialogFilePicker)         .Title = “Select an Excel file”         .Filters.Clear         .Filters.Add “Excel Files”, “\*.xls; \*.xlsx; \*.xlsm”         If .Show = -1 Then             filePath = .SelectedItems(1)         Else             MsgBox “No file was selected. Exiting…”             Exit Sub         End If     End With          ’ Open the selected Excel file     Set wb = Workbooks.Open(filePath)     Set ws = wb.Worksheets(1)          ’ Find the last row     lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row          ’ Loop through each row of data     For i = 2 To lastRow         ’ Read data from the worksheet         deliveryDate = Format(ws.Cells(i, 1).Value, “yyyy-MM-dd”)         destinationCode = ws.Cells(i, 2).Value         weight = ws.Cells(i, 3).Value                  ’ Create the JSON payload         payload = “{”“app”“:”“” & appId & “”“,”“record”“:{”“納品日”“:{”“value”“:”“” & deliveryDate & “”“},”“配送先番号”“:{”“value”“:”“” & destinationCode & “”“},”“重量”“:{”“value”“:”“” & weight & “”“}}}”                  ’ Set up the HTTP request         With xmlHttpRequest             .Open “POST”, url, False             .setRequestHeader “Content-Type”, “application/json”             .setRequestHeader “X-Cybozu-API-Token”, apiToken             .send payload                          ’ Check if the API request was successful             If .Status \<\> 200 Then                 MsgBox "Error: " & .Status & " " & .statusText & vbCrLf & .responseText             End If         End With     Next i          ’ Close the workbook     wb.Close SaveChanges:=False          MsgBox “Data has been imported to kintone successfully.” End Sub | 納品日 | 配送先番号 | 重量 | | 2023/4/22 | あんず | 500 | | 2023/4/22 | ポン酢 | 400 | 上記の形式のエクセルファイルを自動でkintoneにインポートしたいと考えております。 配送先番号のフィールドはルックアップフィールです。 このコードを実行すると、 Error: 400 Bad Request fcode” "CB\_VAOT "id"jo2qdZ1edmuZAsIxpbs7,"message”"入力内容が正しくありません。”“errors” 'records’messages”：［必須です。“ （OK）をクリック   Error: 400 Bad Request fcode””“CB\_VAOT”,id " ”RUM8BMYTiVZPJStYEAlP”,"message””入力内容が正しくありません。,「errors”:「records”f’messages”[必須です。"119 （OK）をクリック Data has been imported to kintone successfully. と最後に表示されます。 しかし、kintoneの方へはデータが入っていません。 私はＶＢＡもプログラミングもわかりません。 ChatGPTで作ったコードです。 ＧＰＴに確認してもエラーは解消されません。 原因がわかる方おられましたら教えていただきたいです。 よろしくお願いします。   ---
**Author:** ![Legacy\_Account2276](https://avatars.discourse-cdn.com/v4/letter/l/cc9497/32.png) [@Legacy\_Account2276](https://community.cybozu.dev/u/Legacy_Account2276)\ **Post date:** [2023 年 4 月 20 日午後 10:02 UTC](https://community.cybozu.dev/t/topic/1539/2 "2023-04-20T22:02:03Z")
エラーメッセージからアプリにレコードを登録するための必須項目が不足しているようです。 アプリの設定を見て必須項目を確認し、プログラムでも必須項目を入れるようにしてください。 そのアプリの設定は管理者しかわからないのでGPTでも解決できるものではありません。 ---
**Author:** ![Legacy\_Account311](https://avatars.discourse-cdn.com/v4/letter/l/f07891/32.png) [@Legacy\_Account311](https://community.cybozu.dev/u/Legacy_Account311)\ **Post date:** [2023 年 4 月 22 日午前 2:08 UTC](https://community.cybozu.dev/t/topic/1539/3 "2023-04-22T02:08:24Z")
@INO 教えて頂きありがとうございます。 必須項目をすべてなしにして、実行したのですが、 エラーはでず（Date has been imported to kintone successfully）となるのですが、 kintoneアプリを確認するとレコードが入っていません。 原因はなにが考えられるでしょうか？ ---
**Author:** ![system](https://us1.discourse-cdn.com/flex015/uploads/cybozu/original/1X/d5c841c3c5a6cb66eed514001c1b45147c9e1f4f.png) [@system](https://community.cybozu.dev/u/system)\ **Post date:** [2023 年 9 月 27 日午前 2:00 UTC](https://community.cybozu.dev/t/topic/1539/4 "2023-09-27T02:00:53Z")
このトピックはベストアンサーに選ばれた返信から 3 日が経過したので自動的にクローズされました。新たに返信することはできません。