No.3ベストアンサー
- 回答日時:
参考URLのAccessサンプル2番目あたりがいいかも
Accessでできているけど、VBに移植できます。
参考URL:http://www.geocities.co.jp/SiliconValley-Cuperti …
この回答への補足
ありがとうございます。
ACCESSでは出来ました。
もう少し頑張って、VBでやろうと思うので、
お付き合い頂けますか?
どれ位いじれば、いけるのかがわからないですけど・・・
'*****起動時に各パス設定を行っています*****
Private Sub Form_Load()
'アプリケーションパス
Dim AppPath As String
Dim CurrentDb As String
'一時ワークの変数
Dim wkStr As String
Dim wkVal As Variant
'現在のDB名を得る
wkStr = CurrentDb
'現在のパスを得る
wkVal = Split(wkStr, "\")
wkVal(UBound(wkVal)) = ""
AppPath = Join(wkVal, "\")
With Me
'インポート元の固定長テキストファイル名
.txtTextName.Value = AppPath & "sk.txt"
'インポート先のMDB名
.txtMdbName.Value = AppPath & "skconv.mdb"
'インポート先のMDBのテーブル名
.txtTableName.Value = "品番対比"
End With
End Sub
の.txtTextNameの所でコンパイルエラーになります。
それまでも2箇所エラーが出ましたが、
合ってるのかはわかりませんが、切り抜けました。
どうか宜しくお願いします。
No.4
- 回答日時:
付き合ってあげたいのは山々ですが、質問のレベルを掘り下げてくれないと、結局全部書くハメになりそうなので、ご勘弁。
。。質問のレベルが「教えて」の許容範囲を外れて、「作って」レベルに達しています。
やはり、手順を追って順次詳細な部分での質問をしていけば、できるとは思いますが。。。
厳しい事を言います。
発生しているエラーは決して難しい事は言っていません。
望む機能は、ここのHPの履歴に出ている技で絶対に解決できるレベルです。
引継ぎに間に合わないとかで、どうしても解決しなければいけないのであれば、学生バイトを雇って仕上げたほうが良いと思います。
どうもありがとうございました。
とりあえず、ACCESSので引継をしました。
これから、自分なりに勉強していきます。
忙しくて、ここになかなか来れなくて、
お礼が遅くなりました。
No.2
- 回答日時:
てっとり早いのは#1のとあわせて、VBでAccessコマンドを走らせる
VBでアクセスを開く。
アクセスオブジェクトを変数に収める。
アクセスオブジェクト.DoCmd.TransferText acImportFixed ~~~~
って感じにする。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=37226
参考URLはフォームを開く例
《アクセスオブジェクト.DoCmd.OpenForm ~~~~》
それとも、完全にVB6でファイルを読み込み、MDBに書くのであれば、質問を細分化した方がよかいと。。。
一応簡単に、、、
テキストを読む (FREEFILEで検索したら、いっぱい履歴が出ます。)
必要であればバイト長で細分化 (http://oshiete1.goo.ne.jp/kotaeru.php3?q=172521)
ACCESSに接続し、MDBに書き込む (http://oshiete1.goo.ne.jp/kotaeru.php3?q=896612)
どこかでつまずいたら、再度質問してみては?
この回答への補足
有難うございます。
引継ぎ資料を作りながら・・・
いろいろと見させてもらいました。
でも、VB6のスキルの低い私には、
その関連具合がわからず、
まだ、各々(3つのステップ)の中で、
コーディングレベルでやるべきことが想定出来ません。
わかるひとには、わかっちゃうのかも知れませんが・・・
もう少し分かり易く教えてもらえないでしょうか?
わがままを言ってすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# 至急教えてください!プログラミングの問題です。 入力待ちをして、受け取った正の整数が表す行数だけ既存 4 2022/07/05 10:12
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- その他(プログラミング・Web制作) フォルダ内の特定 拡張子のファイルを一括実行するBat ファイルについて 4 2022/04/17 09:51
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- その他(プログラミング・Web制作) ファイル名の一部をbatで変更したい batファイルを使って、以下のようにファイル名の一部を変更した 3 2023/02/21 20:09
- C言語・C++・C# pythonのファイルの並びでの読み込みとリストについて 4 2022/04/13 03:52
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- ニコニコ動画 【Premiere Pro】をお使いの方 カット作業を他動画に反映することはできますか? 1 2022/05/18 16:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
テキストボックス中の文字列の...
-
ある文字列が全て数字であるか...
-
Excelでフィルタをかけると警告...
-
VBScriptでファイルの日時順(降...
-
VBAからPDFファイルにパスワー...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
EXCEL VBA オートシェイプナン...
-
VBからExcelのセルの書式設定を...
-
VBAでWebページにセルの値を入力
-
VBA:オートシェイプの線の長...
-
VBAで Set wb = Sheets(1).Cop...
-
Shell.ApplicationのNameSpace...
-
VBAでオプションボタンの設定
-
エクセルVBAでFor each文
-
エクセルマクロエラー「'Cells'...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報