Sub CopyAndRunSQL() Dim sourceFolder As String Dim destinationFolder As String Dim exeFileName As String ' コピー元のフォルダーとファイル名を指定します sourceFolder = "C:\path\to\source\folder\" ' ここにSQL.exeの存在するフォルダーのパスを…

Sub CopyAndImportCSV() Dim sourceFolder As String Dim sourceFileName As String Dim destinationPath As String Dim destinationWorkbook As Workbook Dim newWorksheet As Worksheet ' サーバー上のAフォルダーのパスを設定 sourceFolder = "\\10.30.33…

Redirecting VBA 見栄えの良いユーザーフォームを作るコツ - t-hom’s diary

Sub CopySheetsToExistingWorkbooks() Dim SourceWorkbook As Workbook Dim ASheet As Worksheet Dim BSheet As Worksheet Dim TargetAWorkbook As Workbook Dim TargetBWorkbook As Workbook ' S.xlsmを開く Set SourceWorkbook = Workbooks.Open("S.xlsm")…

Private Sub Workbook_Open() UserForm1.Show End SubPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) '選択した値を取得 Cells(2, "I") = ListBox1.TextEnd SubPrivate Sub UserForm_Initialize() Dim lastrow As Long lastrow = Sh…

Sub InputCode() Dim InputCode As Variant Dim lastRow As Long Dim inputName As Variant Dim inputQuantity As Variant Dim recordSheet As Worksheet Dim listSheet As Worksheet Dim i As Long ' 記録シートを選択 Set recordSheet = Worksheets("記録"…

Excelで簡単なソフトを作るStep2｜簡単な入出庫や在庫管理 - イーテック開発ブログ

Sub OracleConnectionExample() Dim conn As Object Set conn = CreateObject("ADODB.Connection") ' 接続文字列の設定 Dim connectionString As String connectionString = "Provider=OraOLEDB.Oracle;Data Source=YourOracleDB;User ID=YourUsername;Passw…

Set objShell = CreateObject("WScript.Shell") strFilePath = ".\ABC.pdf"Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFilePath) Then objShell.Run "rundll32.exe shell32.dll,ShellExec_RunDLL " & Chr(34) & strF…

Sub CopySheetsFromFolders() Dim sourceFolder As String Dim targetWorkbook As Workbook Dim sourceWorkbook As Workbook ' Bsukei.xlsmのパスを取得 'targetWorkbookPath = ThisWorkbook.Path '画面更新停止、警告画面停止 Application.ScreenUpdating =…

kintone 導入効果 kintone（キントーン）とは？特徴やメリット・できることをわかりやすく解説社内ポータル事例 ポータル開発事例（kintone）｜コムチュア株式会社kintonenのセキュリティ kintoneってセキュリティどう？本当に信用できるか調べてみた | ペパ…

Sub CopySheet() Dim srcWorkbook As Workbook Dim dstWorkbook As Workbook Dim srcSheet As Worksheet Dim dstSheet As Worksheet ' エラーハンドリング On Error GoTo ErrorHandler ' A.xlsmを開く Set srcWorkbook = Workbooks.Open("C:\Path\to\A.xlsm"…

Sub PrintAllPDFsInFolder() Dim FolderPath As String Dim FileName As String Dim objShell As Object Dim objFolder As Object Dim objFile As Object ' フォルダーのパスを指定 FolderPath = ThisWorkbook.Path ' シェルオブジェクトを作成 Set objShell…

■VLOOKUPで抽出 =VLOOKUP(B14,INDIRECT(C$13&$B$12),2,FALSE)■VBA Sub MergeExcelFiles() Dim folderPath As String Dim fileName As String Dim wbSource As Workbook Dim wbDest As Workbook Dim wsSource As Worksheet Dim wsDest As Worksheet ' フレー…

Sub ExecuteOracleQuery() Dim conn As Object ' Connectionオブジェクト Dim rs As Object ' Recordsetオブジェクト Dim strConn As String ' 接続文字列 Dim strSQL As String ' SQLクエリ ' 接続文字列を設定(tnsnames.ora使用) 'strConn = "Provider=Ora…

Sub CopyDataFromFiles() Dim TemplateFile As String Dim TemplateSheet As Worksheet Dim AFilePath As String Dim BFilePath As String Dim AWorkbook As Workbook Dim BWorkbook As Workbook Dim ASheet As Worksheet Dim BSheet As Worksheet ' テンプ…

Sub MergeExcelFiles() Dim FolderPath As String Dim FileName As String Dim TemplateFile As String Dim CurrentWorkbook As Workbook Dim TemplateWorkbook As Workbook ' テンプレートファイルのパスを取得 TemplateFile = "テンプレート.xlsx" Templat…

Sub MergeExcelFiles() Dim FolderPath As String Dim FileName As String Dim TemplateFile As String Dim CurrentWorkbook As Workbook Dim TemplateWorkbook As Workbook ' テンプレートファイルのパスを取得 TemplateFile = "テンプレート.xlsx" Templat…

現地集合→ボーリング→解散→■大和証券 口座開設サイト https://www.daiwa.jp/open/

Sub ボタン1_Click()If MsgBox("印刷しますか？", vbQuestion + vbYesNo) = vbYes Then 'Application.ScreenUpdating = False Worksheets("aaa").PrintPreview 'Worksheets("Sheet1").Visible = True Worksheets("aaa").PrintOut 'Worksheets("Sheet1").Visi…

kintoneガントチャートプラグイン「KOUTEI」を使ってみた | キントマニア | kintone活用ブログhttps://xeex-products.jp/extelligence/kintone-erp/kintoneのタスク管理でできることは？メリットやおすすめプラグインをご紹介！ | クラウドラボ

ペパコミ株式会社 | kintone構築・運用コンサル会社のペパコミ株式会社が運営しているメディアです。kintoneの使い方 (データベース編) - QiitaASCII.jp：kintoneをASTERIA Warpでつなぐデータ連携のメリットとは？kintoneとのデータ連携ならASTERIA Warp【k…

Power Automate Desktop 「SharePoint ファイルを作成」アクション | 誰でもできる業務改善講座Microsoft 365 SharePointを使って1つのファイルを複数人で同時編集 | インフォコネクト株式会社オンプレPostgreSQLをPower Appsのデータソースにしてみる | Log…

Filter(テーブル1,StartsWith(数量,TextInput1.Text))Filter(テーブル1,StartsWith(数量,Dropdown1.Selected.Value))

用意されたExcelファイルを選ぶだけ【Power Apps】Excelからアプリを自動作成するMicrosoft Power AppsからExcelで作ったデータにアクセス！（第2回） | Notebook [Power Apps]ビジュアル解説 Sort, SortByColumns関数｜テックアップライフ [Power Apps]ビジ…

using System; using System.IO; class Program { static void Main() { string filePath = "path/to/your/file.csv"; char delimiter = ','; // CSVファイルの区切り文字 string[] lines = File.ReadAllLines(filePath); foreach (string line in lines) { …

【C#】もう悩まない！CSV読み込みの最も簡単な方法を徹底解説 | 侍エンジニアブログCSVファイルをExcelファイル（ABC.xlsx）に読み込むプログラムの修正版を以下に示します。このプログラムでは、CSVファイルを読み込み、Excelファイルに書き込みます。書き…

参考にいたしますhttps://www.shumi-gatari-blog.com/%E3%80%8Cpower-automate-desktop%E3%80%8D%E3%81%A7excel%E3%82%B7%E3%83%BC%E3%83%88%E3%82%92%E4%B8%8A%E3%81%8B%E3%82%89%E9%A0%86%E3%81%AB%E8%AA%AD%E3%81%BF%E8%BE%BC%E3%82%80/752/

■ @ECHO OFF:INPUT_START ECHO +-------------------------------------------------------+ ECHO ユーザー名を入力してください ECHO +-------------------------------------------------------+ SET INPUT_STR= SET /P INPUT_STR=IF "%INPUT_STR%"=="" GO…

# ライブラリ設定 import openpyxl as px# 対象のエクセルシートを読み込む filepath1 = 'C:/wb1/wb1.xlsx' filepath2 = 'C:/wb2/wb2.xlsx'wb1 = px.load_workbook(filepath1) wb2 = px.load_workbook(filepath2)# エクセルシートをそれぞれ設定 ws1 = wb1.a…