エクセルマクロオンライン講座 質問と回答

  • このエントリーをはてなブックマークに追加

無料・有料のオンライン講座で 寄せられたメッセージの一部を紹介致します。

[7548] Wordと連携するには

田中 宏明さんからの投稿です。

あるフォルダーに保存されたWordファイル(.doc .docx)を一括印刷するマクロを作成してみました。
MS-Officeのバージョンを気にせずに実行できるよう工夫しています。
達人養成塾に入って1年以内でこのレベルに到達してことに感謝します。

 Option Explicit
Option Base 1

Sub Word一括印刷() 'H29.1.22

Dim seDir As String
'Wordファイルが保存されているフォルダーを選択
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
seDir = .SelectedItems(1)
Else
Exit Sub
End If
End With

Dim FSobj As Object 'ファイルシステムオブジェクト
Dim FSobjfolder As Object 'フォルダーオブジェクト
Dim FSobjfile As Object 'ファイルオブジェクト
Set FSobj = CreateObject("Scripting.FileSystemObject")
Set FSobjfolder = FSobj.GetFolder(seDir)

Dim cnt As Long 'カウンター
cnt = 0

Dim FName() As String 'Wordファイル名を入れる動的配列変数

For Each FSobjfile In FSobjfolder.Files
'Wordファイルが見つかったらファイル名を配列に入れる
If Right$(FSobjfile.Name, 4) = ".doc" Or Right$(FSobjfile.Name, 5) = ".docx" Then
cnt = cnt + 1
ReDim Preserve FName(cnt)
FName(cnt) = FSobjfile.Name
End If
Next

Set FSobj = Nothing 'オブジェクトを開放
Set FSobjfolder = Nothing 'オブジェクトを開放
Set FSobjfile = Nothing 'オブジェクトを開放

If cnt = 0 Then
MsgBox "Wordファイルが見つかりません。", vbExclamation
Exit Sub
End If

Dim wdApp As Object 'Wordアプリケーションオブジェクト
Dim doc As Object 'Wordドキュメントオブジェクト
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True 'Wordアプリケーションを表示

Application.DisplayAlerts = False

For cnt = LBound(FName) To UBound(FName)
Debug.Print FName(cnt)
Set doc = wdApp.Documents.Open(seDir & "\" & FName(cnt))
doc.PrintOut
doc.Close
Next cnt

Application.DisplayAlerts = True

wdApp.Quit 'Wordアプリケーションを終了
Set wdApp = Nothing 'オブジェクトを開放
Set doc = Nothing 'オブジェクトを開放

MsgBox "Wordファイルの一括印刷終了", vbInformation
End Sub

[ 続きを読む]  返信件数:3件  [ 動画を見る] 

[6875] これから取り扱うトピックを説明

受講生さんからの投稿です。

小川先生
いつもお世話になっております。送信したつもりの質問が投稿されていないようなので再送信です。
発展編2と外部連携講座を受講させていただくことになりました。
項目名と、フォーマットが微妙に異なる複数の報告書ファイルを順番に開き、1 ID 1行というリストにしなければなりません。
すべてのファイルの項目名を書き出した後、重複を削除し値を転記するイメージなのですが
何をどうすれば良いのか見当がつきません。動画では、どの辺を拝見すれば良いですか?アドバイスをお願い致します。
今、めちゃ胃が痛いです。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5622] 文書中の一文を操作するには

山田 将之さんからの投稿です。

小川先生 ありがとうございました。
ワードとパワーポイントとの連携さっそくどんどん使っていきます。
メールの処理にも応用させていきたいと思います。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5609] Office アプリケーションを操作・連携するには

山田 将之さんからの投稿です。

オブジェクトが違うだけで基本はエクセルのときと同じなので、結構はやく習得できそうです。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5602] ORDER BYの紹介

山田 将之さんからの投稿です。

inner join とleft join 何度も復習してマスターします。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5577] 簡単なSQL を使った.mdb ファイルからデータを取得するサンプルについて

山田 将之さんからの投稿です。

ふとこの動画を見ているときに、自分は今までと違う世界に足を踏み込んだことに気付きました。すごい技術を習得しようとしているのですね。
それを考えると、受講料は安いです。戻り値がたくさんこれからかえってくることを考えると本当に良心的です。
SQLはじめて聞きました。ぜひ習得するよう学習に励みます。
ありがとうございます。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5556] データベースとの接続と接続解除について

山田 将之さんからの投稿です。

外部接続をすると、秘密情報が流れる心配はないのでしょうか。

[ 続きを読む]  返信件数:5件  [ 動画を見る] 

[5551] 文字列操作の一例を紹介

山田 将之さんからの投稿です。

今までLogFileって何のことかわからなかったのですが、説明を聞いて理解できました。使い道があるんですね。とても楽しくなってきました。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5547] フォルダ内のサブフォルダとファイルをリストアップ

山田 将之さんからの投稿です。

再帰がよくわかりませんでした。ここを何とか理解するよう頑張ります。

[ 続きを読む]  返信件数:5件  [ 動画を見る] 

[5546] ファイルの操作・フォルダの操作説明

山田 将之さんからの投稿です。

サンプルを抜き取って使ってたファイルとフォルダーの操作でしたが、その中身を完全に、理解していませんでした。ですので、基本からわかりやすく説明してもらい本当に助かります。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5545] 外部ライブラリの参照について2

山田 将之さんからの投稿です。

参照オブジェクトの字は大きくならないのは残念です。あと、たくさんある中で、どれが何を表しているかわからないです。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5544] 外部ライブラリの参照について1

山田 将之さんからの投稿です。

楽しくなってきました。ワードもできそうですね。もしそうだとすると、業務改善ができます。
また、エクセルで作成した学校評価アンケートを、パワーポイントでまとめれそうです。ありがとうございます。

[ 続きを読む]  返信件数:1件  [ 動画を見る] 

[5315] テキストファイルの操作について

受講生さんからの投稿です。

「Do Until txt.AtEndOfStream」で読み込むとテキストファイルの中身全て(広瀬川.....萩原朔太郎)が読み込まれますが、「Do Until txt.AtEndOfLine」にすると「広瀬川.....もとまらず。」と最後の1行が読み込まれませんが、どういった違いなのでしょうか?

 Sub ReadText2()
Dim fs As Scripting.FileSystemObject
Dim txt As TextStream
Dim path As String
Dim stEachline As String

path = ThisWorkbook.path & "\fsosample\textfile1.txt"
Set fs = New Scripting.FileSystemObject

Set txt = fs.OpenTextFile(filename:=path, IOMode:=ForReading, create:=True, _
Format:=TristateUseDefault)

Do Until txt.AtEndOfStream
stEachline = txt.ReadLine
Debug.Print stEachline
Loop

txt.Close
Set txt = Nothing
Set fs = Nothing
End Sub

[ 続きを読む]  返信件数:3件  [ 動画を見る] 


各講座ごとのメッセージを見る場合はこちら

まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ