人手不足の会社さま・個人事業主さま・各種団体さま、お若い方々のためのパソコンお助けサイト＆備忘録・メモ

ブログ

HOME »
ブログ »
WordVBA

タグ : WordVBA

● Windows10の20H2でUWSCのファイルの関連付けができない場合の対処法

2021-04-23 071350＿自動化機能がないソフトの自動化

● Windows10の20H2でUWSCのファイルの関連付けができない場合の対処法　　 ※まだ書きかけです。すみません。 ※間違ってたらすみません。 ※メモ書きなので、自分でも意味不明な箇所も多いです。ごめんなさい。 ...

この記事を読む

Word2019 ～ Googleの「地図」（航空写真モードではなくて）の拡大図をコピペして印刷したら、建物の境界線がほとんど見えない不都合の解消 → 建物をそこそこはっきり印刷できる設定

2021-04-23 09＿Bizパソコン技

Word2019 ～ Googleの「地図」（航空写真モードではなくて）の拡大図をコピペして印刷したら、建物の境界線がほとんど見えない不都合の解消 → 建物をそこそこはっきり印刷できる設定　　 ※まだ書きかけです。すみ ...

この記事を読む

Word2019の初期設定（Word2019のおせっかい機能のOFF）

2020-01-10 09＿Bizパソコン技

Word2019の初期設定（Word2019のおせっかい機能のOFF）　　 ※まだ書きかけです。すみません。 ※間違ってたらすみません。 ※メモ書きなので、自分でも意味不明な箇所も多いです。ごめんなさい。　　 ★ W ...

この記事を読む

UWSCの「記録」機能で作成した自動化ファイルを手っ取り早く「 ”ゆっくり動作” から速く動くように作り変える」方法。～記録した内容からマウスの動きを削って、ボタンが押されるタイミングを早くする方法（Excelを使います）～

2019-02-08 071350＿自動化機能がないソフトの自動化

● UWSCの「記録」機能で作成した自動化ファイルを手っ取り早く「 ”ゆっくり動作” から速く動くように作り変える」方法。～記録した内容からマウスの動きを削って、ボタンが押されるタイミングを早くする方法（Excelを使い ...

この記事を読む

AccessとExcelの違い。（Excel代替ソフトも含む。一番大きな違いは「SQL」が「ありとあらゆる」「細かい」ところで使えるところ。）

2018-05-23 071701＿小規模システムの構築について

● AccessとExcelの違い。（Excel代替ソフトも含む。一番大きな違いは「SQL」が「ありとあらゆる」「細かい」ところで使えるところ。）　　 ※まだ書きかけです。すみません。 ※間違ってたらすみません。 ※メ ...

この記事を読む

UWSCにて、管理画面から作成した「現在アクセスされている共有ファイルやフォルダのフルパスのリスト」を使って、「それらを除外してXcopyする」ための「除外リスト」の自動作成の方法

2018-05-13 071350＿自動化機能がないソフトの自動化

● UWSCにて、管理画面から作成した「現在アクセスされている共有ファイルやフォルダのフルパスのリスト」を使って、「それらを除外してXcopyする」ための「除外リスト」の自動作成の方法　　　　 Windows2000 ...

この記事を読む

UWSCにて、Windows2000で、現在開かれている共有ファイルのフルパスを文字列で取得する方法（コマンドラインでの処理ができるように）

2018-05-13 071350＿自動化機能がないソフトの自動化

● UWSCにて、Windows2000で、現在開かれている共有ファイルのフルパスを文字列で取得する方法（コマンドラインでの処理ができるように）　　　　コマンドプロンプトにて、「openfiles /Query / ...

この記事を読む

UWSCでの自動化で、あるファイルの内容を読み込んで別のファイルに書き出しする方法

2018-05-13 071350＿自動化機能がないソフトの自動化

● UWSCでの自動化で、あるファイルの内容を読み込んで別のファイルに書き出しする方法　　　　

//
//

Dim RowNum   //ファイル内の行数を格納する変数をメモリ上に作成
Dim fid      //読み込むファイルのフィルのidを格納する変数をメモリ上に作成
Dim fid02    //書き出すファイルのフィルのidを格納する変数をメモリ上に作成

//読み込みたいファイルを開く（あらかじめ「D:\test01-2.txt」を作成しておきます。）
file = "D:\test01-2.txt"
fid = FOPEN(file,F_READ or F_WRITE)

//読み込みたいファイルの行数を取得
RowNum = FGET(fid,F_LINECOUNT) 
//MSGBOX("全部で" + RowNum + "行あります。")


Dim RowStr01[RowNum] //読み込んだファイルの全行の内容を格納するための配列の変数をメモリ上に作成

//配列「RowStr01」に、1行分ずつ、その内容を代入（TABなども含む）
for i = 1 to RowNum
　RowStr01[i] = FGET(fid,i)　
  //MSGBOX(FGET(fid,i))
next

//読み込んだファイルを閉じる
FCLOSE(fid)


//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


//書き込みたいファイルを開く
fid02 = FOPEN("D:\test02.txt", F_WRITE)

//※注：「F_WRITE」は、ファイルが存在しなければ自動生成し、
//       逆に存在すれば、ファイルの内容を上書きしてくれるそうです。


//読み込んだ全行の内容を配列変数の「RowStr01」から1行分ずつ書き込み
for i = 1 to RowNum
　FPUT(fid02, RowStr01[i])
next


//書き込んだファイルを閉じる
FCLOSE(fid02)

MSGBOX("完了しました！")

//
//

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

//

//

Dim RowNum //ファイル内の行数を格納する変数をメモリ上に作成

Dim fid //読み込むファイルのフィルのidを格納する変数をメモリ上に作成

Dim fid02 //書き出すファイルのフィルのidを格納する変数をメモリ上に作成

//読み込みたいファイルを開く（あらかじめ「D:\test01-2.txt」を作成しておきます。）

file = "D:\test01-2.txt"

fid = FOPEN(file,F_READ or F_WRITE)

//読み込みたいファイルの行数を取得

RowNum = FGET(fid,F_LINECOUNT)

//MSGBOX("全部で" + RowNum + "行あります。")

Dim RowStr01[RowNum] //読み込んだファイルの全行の内容を格納するための配列の変数をメモリ上に作成

//配列「RowStr01」に、1行分ずつ、その内容を代入（TABなども含む）

for i = 1 to RowNum

　RowStr01[i] = FGET(fid,i)　

//MSGBOX(FGET(fid,i))

next

//読み込んだファイルを閉じる

FCLOSE(fid)

//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

//書き込みたいファイルを開く

fid02 = FOPEN("D:\test02.txt", F_WRITE)

//※注：「F_WRITE」は、ファイルが存在しなければ自動生成し、

// 逆に存在すれば、ファイルの内容を上書きしてくれるそうです。

//読み込んだ全行の内容を配列変数の「RowStr01」から1行分ずつ書き込み

for i = 1 to RowNum

　FPUT(fid02, RowStr01[i])

next

//書き込んだファイルを閉じる

FCLOSE(fid02)

MSGBOX("完了しました！")

//

//

この記事を読む

「パソコンを使った分析」の本質を分かってないと、こういう愚かな勘違いをすることになります→【IT プロジェクト失敗の原因は「リレーショナルデータベース」】→本当の失敗の原因は、自分自身の「分析」や「デジタルデータ」に対する無知と、ダメ機械を活かそうという知能が無いこと

2017-10-12 080201＿前提：経営者様がExcelで「本当にやりたかったこと」？

● 「パソコンを使った分析」の本質を分かってないと、こういう愚かな勘違いをすることになります→【IT プロジェクト失敗の原因は「リレーショナルデータベース」】→本当の失敗の原因は、自分自身の「分析」や「デジタルデータ」に ...

この記事を読む

Accessを独学したときの習得期間や作れるシステム、体感速度など、「Access2000のmdbファイル（JETエンジン）でできることを簡単にまとめた表.pdf」

2017-07-03 071701＿小規模システムの構築について

● Accessを独学したときの習得期間や作れるシステムや体感速度など、「Access2000のmdbファイル（JETエンジン）でできることを簡単にまとめた表.pdf」 Accessを独学するときの何らかの参考に、10年 ...

この記事を読む

「IrfanView」による、コマンドラインでのデジカメ画像の一括縮小（というか一括リサイズ）～VBAプログラムやUWSCからも使えます～

2017-06-30 090301＿ビジネスPC操作に役立つフリーソフト

● 「IrfanView」による、コマンドラインでのデジカメ画像の一括縮小（というか一括リサイズ）～VBAプログラムやUWSCからも使えます～ ※間違いがあったらすみません。目次 ● 「IrfanView」による、コ ...

この記事を読む

よく使うショートカットキー：～「ビジネスパソコン操作の基礎と2倍3倍の効率化」「パソコンでの自動化と20倍30倍の効率化」に役立ちます～

2017-06-29 090201＿ビジネスパソコン操作の基礎

● よく使うショートカットキー：～「ビジネスパソコン操作の基礎と2倍3倍の効率化」「パソコンでの自動化と20倍30倍の効率化」に役立ちます～実はパソコンは、マウスを使わなくても以下のPDFに示したような「ショートカット ...

この記事を読む

Wordに貼り付けたVBAプログラムコード内容の、コメントの文字色を緑にするプログラム

2017-04-16 075010＿Access2000Tips

● Wordに貼り付けたVBAプログラムコード内容の、コメントの文字色を緑にするプログラム WordのVBEditorを開き、標準モジュールを新規挿入したのち、以下のコードをコピペします。実行すると、「’」が含まれた部分 ...

この記事を読む

「Microsoft Query」で私たち素人のエンドユーザーでもできることいろいろ

2017-04-13 081010＿SQLでの集計・リストアップ

● 「Microsoft Query」で私たち素人のエンドユーザーでもできることいろいろ【超重要】関連記事（ZipサンプルやPDFあり） ExcelでのGUIでの簡易SQL機能「Microsoft Query」の使 ...

この記事を読む

Excel＋Wordで、明細付きの顧客別差込み印刷をする方法。（顧客別連続切換明細印刷・基本VBAゼロ・「Microsoft Query」を使用して各種条件も変更できるので一度作ると条件別に印刷が可能です。～期間別、ランク別、地域別、明細内容等々～）

2017-04-04 080101＿Excelで本当にできること

● Excel＋Wordで、明細付きの顧客別差込み印刷をする方法。（顧客別連続切換明細印刷・基本VBAゼロ）「Microsoft Query」を使用して各種条件も変更できるので一度作ると条件別に印刷が可能です（期間別、 ...

この記事を読む

PAGETOP

無駄なお金と時間がない方・零細企業様・独立したい方・個人事業主の方・営業さん・経理さん・学生さん・就活生さん・小学生のお子様、中高生の子たちのための、　　　　「小さな会社の兼任なんちゃって社内SE・パソコン管理術・の基礎知識」

Copyright © 無駄なお金と時間がない方・零細企業様・独立したい方・個人事業主の方・営業さん・経理さん・学生さん・就活生さん・小学生のお子様、中高生の子たちのための、　　　　「小さな会社の兼任なんちゃって社内SE・パソコン管理術・の基礎知識」 All Rights Reserved.

Powered by WordPress & BizVektor Theme by Vektor,Inc. technology.