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

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

1

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

2017-05-10 16:42:04 多和田 真也さんからの投稿です。

小川先生
ご回答ありがとうございます。ゴールデンウィークが終わって、私も仕事に追われていまして、質問したことを忘れそうになっていました。

こちらでも、検索などで調べていこうと思います。

どうもありがとうございました。

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

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

2017-05-06 15:45:45 多和田 真也さんからの投稿です。

すみません、accessについて書いてませんでした。Accessも32ビット版でした。Office製品すべて32ビット版のようです。

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

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

2017-05-06 13:40:43 多和田 真也さんからの投稿です。

すみません、accessについて書いてませんでした。Accessも32ビット版でした。Office製品すべて32ビット版のようです。

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

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

2017-05-06 13:38:38 多和田 真也さんからの投稿です。

小川先生
確認してみました。Excel2016も、Word 2016も、ともに32ビットでした。
ちなみに、Office365を利用しています。

PCが64ビットなので、64ビット版を探してインストールしないといけないのでしょうか?

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

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

2017-05-05 12:23:55 多和田 真也さんからの投稿です。

小川先生。いつもお世話になっております。
先日、
>
> テキストP90に記載のある、データリンクプロパティ画面で、Microsoft Jet 4.0 OLE DB Providerが表示されないのですが、このような場合はどうすればよいでしょうか。
>
> 画面のスクリーンショットを添付しておりますので、ご参照いただいたうえで教えていただけましたらありがたいです。

という質問を、お問合せ画面のフォームから質問させていただきました。
----------------------------------------------------------------------------------

ということで、その関連でどのような調査をされたのか?をお知らせください。
それから、お使いの環境についても。
どんな環境なのか?どこまで調査されたのか?によって、回答は変わります。

-----------------------------------------------------------------------------------

とご解答をいただきましたので、関連情報をお知らせいたします。

PC環境は、windows10の64bitマシンで、excelとaccessのバージョンは2016です。

Googleで「Microsoft Jet 4.0 OLE DB Provider」を検索し、http://qiita.com/yaju/items/86314412741deb806366

を参照したのですが、知識不足からか何をしたらよいのかよく理解できないので質問いたしました。

なお、前回の質問はスクリーンショットで画面の状態を見ていただいたうえでご判断いただいたほうが良いか、と思い、お問合せ画面のフォームから質問いたしました。(このフォームからだとファイルの添付ができないので)

他に何か判断に必要な情報があれば、お伝えいただけましたら幸いです。

どうぞよろしくお願いいたします。

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

[7548]Wordと連携するには

2017-01-22 12:27:55 田中 宏明さんからの投稿です。

あるフォルダーに保存された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]これから取り扱うトピックを説明

2016-07-29 19:17:53 受講生さんからの投稿です。

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

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

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

2016-01-15 06:30:06 山田 将之さんからの投稿です。

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

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

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

2016-01-14 21:16:02 山田 将之さんからの投稿です。

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

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

[5602]ORDER BYの紹介

2016-01-14 06:07:16 山田 将之さんからの投稿です。

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

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

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

2016-01-11 16:52:19 山田 将之さんからの投稿です。

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

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

[5575]カレントレコードについて

2016-01-11 16:29:57 山田 将之さんからの投稿です。

わかりやすかったです。ありがとうございます。

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

[5574]Openメソッドについて

2016-01-11 16:05:28 山田 将之さんからの投稿です。

とてもわかりやすかったです。ありがとうございます。

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

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

2016-01-11 11:13:56 山田 将之さんからの投稿です。

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

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

[5555]データベース接続を簡単に実現する外部ライブラリについて

2016-01-11 10:48:36 山田 将之さんからの投稿です。

いよいよ始まりますね。胸が高まってきました。

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

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

2016-01-10 13:47:53 山田 将之さんからの投稿です。

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

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

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

2016-01-10 13:19:12 山田 将之さんからの投稿です。

理解できました。

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

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

2016-01-10 09:51:28 山田 将之さんからの投稿です。

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

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

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

2016-01-10 09:23:41 山田 将之さんからの投稿です。

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

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

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

2016-01-10 07:29:31 山田 将之さんからの投稿です。

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

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

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

2016-01-10 07:04:57 山田 将之さんからの投稿です。

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

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

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

2015-11-24 16:19:48 受講生さんからの投稿です。

「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件  [ 動画を見る] 

1

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

 

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

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

トップへ