先生: 今日は、このプログラムを使って、Outlookのメールと添付ファイルを自動で保存する方法を学ぼうな！わかりやすく説明するから、ついてきてな。 生徒: うん、よろしくお願いします！でも、なんか難しそう… 先生: 大丈夫、順番に説明するからな！まず、…

先生: さて、今日はこのコードを見てみようか。このプログラムは、Outlookの「受信メール」と「送信メール」を指定した期間内で保存するんや。分かるかな？ 生徒: うーん、ちょっと難しいけど、頑張ってついていくよ！ 先生: よし、まずはこのコードがどう動…

先生: 今日はこのコードを見ていこうか。このプログラムは、特定の送信者からのメールを指定した日付以降に受け取ったメールだけを、テキストファイルとして保存するんやで。 生徒: えー、メールをテキストファイルに？どうやってやるんですか？ 先生: まず…

先生: 今日はこのコードを見ていこうな。このプログラムは、あるフォルダーの中から、指定したテキストを含むテキストファイルを探して、結果をHTMLファイルにまとめるんやで。 生徒: へぇー、テキストを探してくれるんですね！どうやって探すんですか？ 先…

先生: 今日はこのプログラムを見ていこうか。これ、Outlookの受信トレイと送信済みアイテムから、指定した期間のメールをテキストファイルに保存するやつやで。 生徒: え、すごい！どんなことをするんですか？ 先生: まず、このコードは「開始日」と「終了日…

先生: 今日はこのプログラムを見ていこうか。これは、Outlookの受信メールと送信メールの添付ファイルを自動で保存するプログラムやで。 生徒: え、メールの添付ファイルを自動で保存するんですか？どうやってやるんですか？ 先生: そうやで！まず、受信した…

先生: 今日はこのプログラムを見ていこうな！これは「指定したフォルダ」の中のメールを、テキストファイルとして保存するプログラムやで。 生徒: それって、どういうことですか？メールをテキストファイルにするんですか？ 先生: その通り！指定したフォル…

先生: 今日は「送信時間を取得するプログラム」について学ぶで！このプログラムは、Outlookの送信済みメールフォルダから、日別で一番最後に送った時間を記録するんや。 生徒: へぇ、送信済みのメールの送信時間をまとめるんですね！でも、どうやってその情…

先生: 今日は「データをAccessからOracleに転送して、Excelに保存するプログラム」について学ぶで。まず、データベースからデータを取り出して、それをExcelに書き出して、さらにOracleにも転送するんや。 生徒: え？なんかいろんなことをしてるんですね！ど…

先生: 今日は「指定したフォルダ内のファイルから条件に合うデータを抽出して、新しいExcelファイルに保存する」プログラムを学ぼうな。まず、どんなことをするか説明するで。 生徒: はい、お願いします！これって、いろんなファイルから必要なデータを集め…

先生: 今日は、フォルダの中にあるExcelファイルから、特定の条件に合ったデータを集めて新しいExcelファイルにまとめるプログラムを見ていこうな。 生徒: それは面白そう！どんな条件でデータを集めるんですか？ 先生: 例えばな、C列とZ列に特定の文字が含…

先生: 今日は簡単なコードを紹介するで！このコードは「今日の日付」を取得して、それを特別な形に直すもんやねん。 生徒: 日付を取得するんですか？どうやって？ 先生: うん、まず「Now」っていう命令を使って、今の「日付と時間」を取得するんや。それを「…

先生: 今日は「指定フォルダ内のExcelファイルを集計してデータを取り出す」コードを紹介するで！このコード、フォルダ内にあるExcelファイルを見て、条件に合うデータを集めて新しいファイルにまとめるんや。 生徒: へぇ〜、それはすごいですね！どうやって…

先生: 今日は、指定したフォルダの中にあるExcelファイルからデータを集めて、新しいファイルにまとめる方法を紹介するで！まず、このコードは、フォルダ内のすべてのExcelファイルを開いて、「C列」に「ABC」って文字が入ってるデータを探すんや。 生徒: そ…

先生: 今日は、PDFファイルを2つに分けるプログラムの説明をするで。これを使うと、1つのPDFを指定したページで分けることができるんや。 生徒: えっ、それってどうやってするんですか？ 先生: まず、PDFを分割するために「PDFtk」というツールを使うんや。…

'//-------------------- ' AccessのVBAモジュールに追加Function GetDataFromOracle(searchCondition As String) As Variant Dim conn As Object Dim rs As Object Dim data As Variant Dim i As Integer, j As Integer Dim sql As String ' ADO接続を作成 …

Sub ExportDataFromOracle() Dim conn As Object Dim rs As Object Dim data As Variant Dim i As Integer, j As Integer Dim searchValue As String Dim sql As String ' 検索条件をExcelのセルから取得（例: A1セルの値） searchValue = ThisWorkbook.Shee…

先生: 今日は、ExcelからOracleのデータベースに接続して、データを検索してExcelに書き出すプログラムの説明をするで。 生徒: それってどうやってするんですか？ 先生: まず、このプログラムでは、Excelにある情報を使って、Oracleのデータベースからデータ…

先生: 今日は、AccessとExcelを使って、Oracleデータベースからデータを取り出して、Excelに書き込む方法を説明するで。 生徒: それはすごいですね！どうやってやるんですか？ 先生: まず、最初のコードは「Access」のVBAのコードやな。これがOracleに接続し…

先生: 今日は、Excelで開いているシートをCSVファイルとして保存する方法を説明するで。まず、このコードを見てみようか？ 生徒: うん！どんなことをするコードなんですか？ 先生: これは、今開いているシートをCSV形式でデスクトップに保存するコードやで。…

先生: 今日は、ExcelからOutlookを使ってメールを送る方法を説明するで。このコードを見てみようか？ 生徒: うん！どうやってメール送るんですか？ 先生: まず、Excelで書いた内容を使って、Outlookでメールを送る準備をしていくんや。最初に、いくつかの変…

先生: 今日は、VBSスクリプトを使って、AccessのクエリからSQLを取り出す方法を説明するで。まず最初に、Accessを開く準備をするんや。 生徒: なるほど！Accessを開くんですね、どうやって？ 先生: そうやで！まず、CreateObject("Access.Application")って…

Dim excelApp, workbook, link, ws, hyperLinkDim filePath, newFilePathDim totalLinksRemoved, remainingLinks, totalHyperlinksRemoved ' ドロップされたファイルのパスを取得If WScript.Arguments.Count = 0 Then WScript.Echo "Excelファイルをドロップ…

Sub ハイパーリンク先削除チェック() Dim ws As Worksheet Dim hyperlink As hyperlink Dim response As VbMsgBoxResult Dim recordSheet As Worksheet Dim lastRow As Long Dim hyperlinkFound As Boolean ' リンク記録用のシートを確認、なければ作成 On E…

Sub 外部リンク削除() Dim wb As Workbook Dim ws As Worksheet Dim cell As Range Dim externalLinks As String Dim filePath As String Dim fileNum As Integer Dim linkCell As Range ' アクティブなブックを取得 Set wb = ActiveWorkbook externalLinks …

方法1: ZIPファイルとして解凍する ファイル拡張子を変更: .xlsxや.xlsmの拡張子を.zipに変更します。 ZIPファイルを解凍: 解凍して中のファイルを表示します。 xlフォルダを探す: 解凍したフォルダ内にあるxlフォルダを開きます。 externalLinksフォルダを…

Sub リンク先確認後に削除() Dim astrLinks As Variant Dim link As Variant Dim linkCount As Long ' 現在のブック内のExcelリンクを取得 astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) ' リンクが存在するかチェック If IsEmpty(as…

Sub リンク先削除() Dim wb As Workbook Dim LinkArr As Variant Dim i As Long ' アクティブなブックを取得 Set wb = ActiveWorkbook ' リンクを取得 LinkArr = wb.LinkSources(xlLinkTypeExcelLinks) ' 外部リンクが存在する場合 If Not IsEmpty(LinkArr) …

Dim excelApp, workbook, linkDim filePathDim totalLinksRemoved, currentFileLinksRemoved ' ドロップされたファイルのパスを取得If WScript.Arguments.Count = 0 Then WScript.Echo "Excelファイルをドロップしてください。" WScript.QuitEnd If filePath…