たなぴーつぶやき？部屋??

このブログを検索

台風表現まとめ^^

8月 22, 2021

リンクを取得
Facebook
×
Pinterest
メール
他のアプリ

たなぴーアイコンありver.

たなぴーアイコンなしver

リンクを取得
Facebook
×
Pinterest
メール
他のアプリ

ExcelデータをWordのテンプレートに転記(VBA)

みなさん、こんにちは^^　お久しぶりです！リクエストを受けまして、タイトルのとおり、 Wordの定型フォームにExcelのデータを入力するVBA作りました！ (1行1ファイル作成) 内容は動画を参照ください。ちなみに私が作成したソースは一番下に載せてますので、コピペしてみてください^^ ■ツール使用方法 ■VBAのちょっとした解説ソースコードは下記　※プロじゃないので突っ込みどころ満載かも(泣) ↓　　　　↓　　　　↓　　　　↓　　　　↓ Option Explicit Dim strPath As String Dim i As Long, j As Long, TitleRow As Long, cnt As Long 'iは行の移動用、jは列に移動用。TitleRowはタイトル取得用。cntはデータ処理カウント用。 Dim wdApp As Word.Application, wdDoc As Word.Document Sub MakeWord() cnt = 0 '処理件数の初期値 TitleRow = 5 'タイトルの行を入力 ※データ開始よりも上の行を挿入削除した場合、変更要 i = TitleRow + 1 'データ開始行セット※タイトル行+1 Set wdApp = CreateObject("Word.Application") wdApp.Visible = True Do While Cells(i, 1) <> "" If Cells(i, 9) = "" Then 'ステータスがブランクだったら実行 Set wdDoc = wdApp.Documents.Open(ActiveWorkbook.Path & "\template.docx") For j = 2 To 8 '今回は2行目～8行目の内容をWord更新したい。 ...

Excel(VBA)でSQLを使おう!!

Excel内で手軽にSQLの勉強できるようになりますよ^^ ■VBAコードサンプルは下記です^^　適宜アレンジください！ Sub getDataBySQL() Dim cn As Object, strCn As String, i As Long, row As Long, col As Long Dim strPath As String, SQL As String, rs As Object, strSQLtype As String Dim wsMe As Worksheet Set wsMe = ThisWorkbook.Sheets("SQL①") row = 6 col = 1 Set cn = CreateObject("ADODB.Connection") '接続オブジェクトを作成する Set rs = CreateObject("ADODB.Recordset") 'レコードセットオブジェクトを作成 strPath = ThisWorkbook.FullName '自分自身のファイルにアクセスする strCn = "provider=Microsoft.ACE.OLEDB.12.0;" & _ "extended properties=Excel 12.0 Macro;data source=" & strPath 'マクロブック(.xlsm)の場合 '"extended properties=Excel 12.0 xml;data source=" & strPath　'Excel(.xlsx)の場合 cn.Open strCn 'データベースに接続する SQL = wsMe.Shapes("SQLTEXT1").Text...

(Excel VBA)Power Point 自動作成で超効率化(基礎)

みなさんこんにちは！独学ですが、ここまできました！下にサンプルコード記載していますので、参考にしてみてください^^ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Option Explicit Sub mkPpt() Dim myWs As Worksheet, numDate As Long Set myWs = ThisWorkbook.Worksheets("報告") '本sheetをセット numDate = myWs.Cells(16, 2).Value Dim ppApp As New PowerPoint.Application Dim ppPrs As PowerPoint.Presentation Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\パワポ.pptx") Dim ppSld As PowerPoint.Slide 'スライドオブジェクト Dim pic As PowerPoint.Shape ppApp.Visible = True '■■■■■■1ページ目■■■■■■ Set ppSld = ppPrs.Slides(1) '1ページ目のスライドをセット ppSld.Shapes("ReportDate").TextFrame.TextRange.Text _ = Format(numDate, "'yy/m/d(aaa)") & "報告" ppSld.Shapes("TextBox1").TextFrame.TextRange.Text = myWs.Cells(14, 4) & " " & myWs.Cells(15, 4) Range(myWs.Cells(1, 1), myWs.Cells(13, 6)).CopyPicture xlScreen, xlPicture 'グラフを画像としてコピー Set pic = ppSld.Shapes.Paste.Place...

Powered by Blogger

たなぴーつぶやき？部屋??

このブログを検索

台風表現まとめ^^

コメント

コメントを投稿