- ベストアンサー
Excelファイル 修復不可能
nicotinismの回答
私が伝えたかったのは。。分かっていただけたようなので書き直しました あるいは i= 0 DoCmd ・・・ Do Until isOpend("\\Cs0097\63022_cr\顧客対応システム\発表資料取込用.xls") = 0 i = i + 1 '無限ループ対策 sleep 500 if i = 5 then 'この辺は適当に msgbox varAccess1 & "で諦めました" Exit sub 'で良くはないと思えますが取り合えず loop i = 0 DoCmd ・・・ 以下同様に Function isOpend(FileFullPath As String) As Integer Dim fNo As Integer fNo = FreeFile On Error Resume Next Open FileFullPath For Input Access Read Lock Read Write As fNo Select Case err.Number Case 0 '多分開かれていない isOpend = 0 Case 53 'ファイルが見つからない isOpend = 1 Case 70 '開かれているかも isOpend = 2 Case Else isOpend = 3 End Select Close fNo End Function ↑大昔の方法なのでご参考までに。 効果があるかは何ともいえませんが (^^ゞ
関連するQ&A
- Access2000 Export時にシート名を指定したい。
お世話になります。 Access2000です。 アクセスよりテーブルAをエクセルにエクスポートする時にシート名を指定したいのですがどうすればよいのですか？ DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "テーブルA", "E:\", True となっていますが・・・・ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- アクセス2007VBAのクエリのエキスポート
お世話になります。 以下の様にアクセス2007のクエリを エクセルにエクスポートのVBAを作成したところ うまく動作しません。 どこか構文が間違ってるのでしょうか？ Private Sub トグル2_Click() Dim acc1 As String Dim exce1 As Variant acc1 = "q_有給付与後" ecxe1 = "G:\MOCF05602\大信\エクスポートテスト.xlsx" DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel12Xml, acc1, exce1, True MsgBox "エクスポート完了★" End Sub
- ベストアンサー
- オフィス系ソフト
- MSアクセス エクセルへのエクスポートについて
アクセスの初心者です。いろいろ調べてみたのですがわかりません。どうか教えてください。よろしくお願いします。 アクセスのフォームにボタンを作り、そのボタンを押すとエクセルにエクスポートするように設定しました。しかしデータが全てエクスポートされてしまいます。目指しているのは”開いているフォームのデータのみをエクスポートしたい”のです。 フォーム名：申込書 エクスポートしたいフォームのデータ（クエリ）名：申込書 エクスポート先：エクセルｃ：￥申込書 です。 主キー：申込ID 仮にフォームで申込IDが「３」を開いていれば、その「３」のデータのみをエクスポートするVBAを教えてください。 現在はここまでの段階で止まっています。↓これにプラスする記述で目指すものができればと思います。 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "申込書", "c:\申込書.xls", True, "" お手数ですがよろしくお願いします。
- ベストアンサー
- その他(データベース)
- アクセス（access）からエクセルにエクスポート
アクセスから、エクセルにクエリのデータを出力する際に、 「TransferSpreadsheet」を使用していますが、 そのエラー処理について、教えて下さい。 保存しようとしているファイルが既に開かれている場合に、 処理を中止し、エラーメッセージを出したいのですが、 どのようにすればいいのでしょうか？ なお、現在のVBAは次のとおりです。 Private Sub コマンド01_Click() Dim a As String Dim b As Variant a = "Q_一覧表" b = "C:\一覧表.xls" DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel9, a, b, True MsgBox "データを出力しました。" Exit Sub End Sub
- ベストアンサー
- オフィス系ソフト
- accessからエクセルにエクスポートしたファイルを開きたい。
accessのマクロ・ワークシート変換で4枚のシートを含むエクセルファイルを作るように設定をしたのですが、これをエクスポートが終わったら自動的に開くようにしたいのですが、どのようにしたらよいでしょうか。 VBAで DoCmd.OutputTo acOutputTable, "tbl_aaa", acFormatXLS, , True と試してみましたが、シートは一つのみになってしまいます。 1つのエクセルファイルに4枚のシートを出力して、それを立ち上がるようにしたいです。 DoCmd.TransferSpreadsheet acExport, … も考えたのですが、エクセルを開く書き方がわかりません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセス2000→エクセル2010へエクスポート
Private Sub cmd出力ボタン_Click() DoCmd.SetWarnings False DoCmd.TransferSpreadsheet acExport, 8, "出力クエリ", "C:データ.xlsx", True, "" DoCmd.SetWarnings True End Sub 実行すると 外部テーブルのフォーマットが正しくありません と出てしまいます。 エクセル97の形式にエクスポートする際は大丈夫でした。 spreadsheettypeの引数が違うのかとは思いますが適切な数値がわかりません。 他のやり方等もあれば教えて下さい。
- ベストアンサー
- オフィス系ソフト
- アクセス2007 エクセルへエクスポートするファイル名に日付を付けたい
こんにちは。 アクセス2007を使用しています。 テーブルをエクセルにエクスポートし、 さらにそのファイル名に日付をつけたいのですが なかなかうまくいきません。 以下のように記述しました。 Private Sub コマンドボタン_Click() 'Excelファイルへエクスポート DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "テーブル名", "転送先フォルダパス" & Format(Now(), "yyyymmdd") & ".xls" End Sub Format関数を入れないとうまく行くので その部分が間違っているのだろうと思うのですが どうしていいのかわかりません。 どなたか原因をご教授いただけると助かります。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ACCESS 2000でのExcel出力
ACCESS 2000でExcel出力時に下記のソースで出力しています。 出力先をユーザーに選択させたい(Windowsでファイル保存時に出てくるやつみたいに)のですが、どのような方法がありますか？ Private Sub 集計結果_Click() DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _ "クエリA", "c:\集計.xls" End Sub 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- [PG]AccessVBAでファイルのインポートする方法
[PG]AccessVBAでファイルのインポートする方法 VBAでエクセルファイルのインポートする機能を実装しています。 下記のコードで実行しますと実行時エラー"3011"が表示され DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ varac, varxls, True, strrange で止まります。何か解決方法を教えていただけないでしょうか？ Function ExcelDataImport() 'On Error GoTo エラー Dim varac As Variant Dim varxls As Variant Dim strrange As String Dim strmsg As String ' --- Accessテーブルを指定します。存在していなければ自動的に作成します。 varac = "tbl_売上げテーブル" ' ---Excelファイルを指定します。必ず、存在していなくてはいけません。 varxls = "C:\売上げ.xls" ' --- データ入力のシート名とセル範囲を指定します。 ' なお、省略が可能です。省略した場合は、ワークシート全体がインポートされます。 strrange = "売上げシート!A1:D10" strmsg = "Excelファイル" & varxls & " を、Accessテーブル " & varac & _ "へ、データ入力を行います。" & Chr(13) & _ "Excelファイルの入力レンジは、 " & strrange & " です。" ' --- DeleteObjectメソッドを用いて、tbl_売上げテーブルを削除します。 ' --- TransferSpreadsheetメソッドを用いてデータをインポートします。 DoCmd.DeleteObject acTable, varac If MsgBox(strmsg, vbOKCancel) = vbOK Then DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ varac, varxls, True, strrange MsgBox "データ入力は、正常に完了しました。" End If Exit Function
- ベストアンサー
- その他（プログラミング・開発）
- ACCESSのエクスポートでEXCELのデータにつくカンマを付けない方法は？
ACCESSのエクスポートでEXCELのデータにつくカンマを付けない方法はありますか。または作成されたEXCELから一気にとれますか。 例） ACCESSデータ 項目１ 項目２ 明日 雨 明後日 曇り エクスポート実行 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9使用 EXCELデータ （現在） （希望） '項目１ '項目２ 項目１ 項目２ '明日 '雨 明日 雨 '明後日 '曇り 明後日 曇り 'はセルで見えないのですが、これを付かないまたは取りたいのです。 できるでしょうか。宜しくお願いします。
- ベストアンサー
- その他(データベース)
お礼
何度もありがとうございました。 それぞれの処理にsleep関数を付け加えたらどうやら安定したようです。 助かりました(*^_^*)