No.4ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
1枚目のシートのシート名はSheet1とします。
2枚目のシートのシート名はSheet2とします。
シート名が異なる場合は、あなたの環境に合わせてください。
Const folder As String = "d:\goo\excel\goo177"
は、テキストファイルが格納されているフォルダです。あなたの環境に合わせてください。
-------------------------------------
Option Explicit
Public Sub 勤務時間データ取得()
Const folder As String = "d:\goo\excel\goo177"
Dim inline As String
Dim fpath As String
Dim flg As Boolean
Dim col As Long
fpath = folder & "\" & Worksheets("Sheet1").Cells(1, "A").Value & ".txt"
If Dir(fpath) = "" Then
MsgBox (fpath & "は存在しません")
Exit Sub
End If
Open fpath For Input As #1
col = 1
flg = False
Do Until EOF(1)
Line Input #1, inline
If flg = True And col < 4 Then
Worksheets("Sheet2").Cells(1, col).Value = inline
col = col + 1
End If
If InStr(inline, "勤務時間") > 0 Then flg = True
Loop
Close #1
If flg = False Then
MsgBox ("勤務時間なし")
Else
MsgBox ("完了")
End If
End Sub
--------------------------------------
この回答へのお礼
お礼日時:2017/04/05 13:07
早速試してみました。
思ったとおりの動作を確認できました。
これから内容を読み解いていこうと思います。
本当にありがとうございました。
No.3
- 回答日時:
追加質問です。
個々のデータは""でくくられていますか。くくられていませんか。ケース①
勤務時間
123
456
ケース②
"勤務時間"
"123"
"456"
①②のどちらでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/14 12:49
- Java java 次の機能を有するメソッドを自クラスに作成し、実装したいです。 機能 名前判定機能 →名前が 3 2022/06/16 16:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- その他(プログラミング・Web制作) 2つのテキストファイルを比べて文字列を特定する方法を教えて下さい 5 2022/05/01 15:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで同一フォーマットのシー...
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
前の(左隣の)シートを連続参...
-
至急お願いします。エクセルシ...
-
EXCELで1ヶ月分の連続した日付...
-
テキストボックス内の文字の一...
-
EXCEL:同じセルへどんどん足し...
-
エクセルで前のシートを連続参...
-
エクセル 計算式も入っていない...
-
エクセルVBAでパスの¥マークに...
-
複数シートの固定のセルの値を...
-
別シートの最終行に貼り付けす...
-
エクセルで前シートを参照して...
-
Excelのシートを、まとめて表示...
-
Excelで金銭出納帳。繰越残高を...
-
Accessのスプレッドシートエク...
-
エクセルVBA 串刺し計算の際、...
-
エクセル内の数式を反映させな...
-
【Excel マクロ】 同一book内で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルでファイルを開いたと...
-
EXCELで1ヶ月分の連続した日付...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルで前のシートを連続参...
-
前の(左隣の)シートを連続参...
-
EXCELで同一フォーマットのシー...
-
VBAでシートコピー後、シート名...
-
Excel 連番を入力する方法
-
エクセル 計算式も入っていない...
-
エクセルで前シートを参照して...
-
エクセルでシート名を自動入力...
-
Accessのスプレッドシートエク...
-
複数シートの特定の位置に連番...
-
エクセルのシート名をリスト化...
おすすめ情報
No.1様
勤務時間
1
2
3
という形になっております。
勤務時間という言葉のあとに必ず3行の数字が続く形になります。
No.2様
テキストファイルの拡張子は.txtとなっており
タイトルという言い方に問題がありました。
タイトルではなくテキストファイルのファイル名になります。
テキストファイル内にはファイル名は記載されておりません。
追加質問の件ですが””で区切られておらず
ケース①となります。
引き続き、よろしくお願いいたします。